inormálicak 
y Programación 


PROGRAMAS EDUCATIVOS 
PROGRAMAS DE UTILIDAD 
PROGRAMAS DE GESTIÓN 
PROGRAMAS DE JUEGOS 
BASIC-Y MAQUINA Y PASCAL Y LOGO Y-OTROS LENGUAJES 
TECNICAS DE ANALISIS Y DE PROGRAMACION 


i 
* A * 


MOOTANaCion 
[Paso APASC 


Le: 
Aa 


ES 


PROGRAMAS EDUCATIVOS 
PROGRAMAS DE UTILIDAD 
PROGRAMAS DE GESTIÓN 
PROGRAMAS DE JUEGOS 
Y BASIC Y MAQUINA Y PASCAL Y LOGO Y OTROS LENGUAJES Y 
Y TECNICAS DE ANALISIS Y DE PROGRAMACION Y 


v EDICIONES vw SIGLO w CULTURAL v 


Una publicación de 
EDICIONES SIGLO CULTURAL, S.A. 


Director-editor: _ 
RICARDO ESPAÑOL CRESPO. 


Gerente: 
ANTONIO G. CUERPO. 


Directora de producción: 
MARIA LUISA SUAREZ PEREZ. 


Directores de la colección: 
MANUEL ALFONSECA, Doctor Ingeniero de Telecomunicación 
y Licenciado en Informática. 
JOSE ARTECHE, Ingeniero de Telecomunicación. 


Diseño y maquetación: 
BRAVO-LOFISH. 


Fotografía: 
EQUIPO GALATA. 


Dibujos: 
JOSE OCHOA 


TECNICAS DE PROGRAMACION: Manuel Alfonseca, Doctor Ingeniero de 
Telecomunicación y Licenciado en Informática. TECNICAS DE ANALISIS: José 
Arteche, Ingeniero en Telecomunicación. LENGUAJE MAQUINA 8086: Juan Rojas, 
Licenciado en Ciencias Físicas e Ingeniero Industrial. PASCAL: Juan Ignacio 
Puyol, Ingeniero Industrial. PROGRAMAS (educativos, de utilidad, de gestión y de 
juegos): Francisco Morales, Técnico en Informática y colaboradores. 
Coordinador de Aula de Informática Aplicada (AlA): Alejandro Marcos, 
Licenciado en Ciencias Químicas. BASIC: Esther Maldonado, Diplomada en 
Arquitectura. INFORMATICA BASICA: Virginia Muñoz, Diplomada en Informática. 
LENGUAJE MAQUINA Z-80: Joaquín Salvachúa, Diplomado en Telecomunicación y 
José Luis Tojo, Diplomado en Telecomunicación. LENGUAJE MAQUINA 6502: 
(desde el tomo 5): Juan José Gómez, Licenciado en Química. LOGO: Cristina 
Manzanera, Licenciada en Informática. APLICACIONES: Sociedad Tamariz, 
Diplomada en Telecomunicación. OTROS LENGUAJES (COBOL): Eloy Pérez, 
Licenciado en Informática. Ana Pastor, Licenciada en Informática. 


Ediciones Siglo Cultural, S.A. 


Dirección, redacción y administración: 

Pedro Telxelra, 8, 2.9 planta. Teléf. 455 09 99. 28020 Madrid. 
Publicidad: 

Gofar Publicidad, S.A. Benito de Castro, 12 bis. 28028 Madrid. 
Distribución en España: 

COEDIS, S.A. Valencia, 245. Teléf. 215 70 97. 08007 Barcelona. 

Delegación en Madrid: Serrano, 165. Teléf. 411 11 48. 


Distribución en Ecuador: Muñoz Hnos. 
Distribución en Perú: DISELPESA. : 
Distribución en Chile: Alfa Ltda. 
importador exclusivo Cono Sur: 


CADE, S.R.L. Pasaje Sud América, 1532. Teléf.: 21 24 64. 
Buenos Alres - 1.290. Argentina. 


Todos los derechos reservados. Este libro no puede ser, en parte o totalmente, 
reproducido, memorizado en sistemas de archivo, o transmitido en cualquier 
torma o medio, electrónico, mecánico, fotocopia o cualquier otro, sin la previa 
autorización del editor. 
ISBN del tomo: 84-7688-189-4 
ISBN de la obra: 84-7688-068-7 
Fotocomposición: 
ARTECOMP, S.A. Albarracín, 50. 28037 Madrid. 
imprime: 
MATEU CROMO. Pinto (Madrid). 
O Ediciones Siglo Cultural, S.A., 1987. 
Depósito legal: M. 5.677-1987 
Printed in Spain - Impreso en España. 
Suscripciones y números atrasados: 
Ediciones Siglo Cultural, S.A. ) 
Pedro Teixeira, 8, 2.9 planta. Teléf. 259 73 31. 28020 Madrid. 
Abril, 1988. 
P.V.P. Canarias: 335,-. 


BASIC 


MAQUINA 8088 


PROGRAMAS EDUCATIVOS 
PROGRAMAS DE UTILIDAD 
PROGRAMAS DE GESTIÓN 
PROGRAMAS DE JUEGOS 


TECNICAS DE ANALISIS 
TECNICAS DE PROGRAMACIÓN 
LOGO 

PASCAL 

OTROS LENGUAJES 


BASIC 


SONIDO 


Q Sonido 


L lenguaje BASIC 
pone a nuestra dispo- 
sición la posibilidad 
de crear infinidad de 
programas sonoros, 
desde sencillos efec- 
tos especiales como 
trinos, campanas, ex- 
plosiones, etc., hasta las más sofisticadas 
composiciones musicales. 

Sin embargo, no existe una instrucción 
BASIC única para la creación de sonidos 
en los distintos ordenadores. Las instruc- 
ciones más comunes son BEEP y SOUND, 
cada una de ellas con su formato particu- 
lar; por tanto, vamos a estudiarlas una a 
una. 


[Ml Beep 


El SPECTRUM utiliza la instrucción BEEP 
para la generación de sonidos. Su forma- 
to es el siguiente: 

BEEP D, T 

siendo D la duración del sonido en se- 
gundos y T el tono, expresado por un nú- 
mero entero comprendido entre -59 y 
+69. Cuanto menor es el número del 
tono, más grave es el sonido emitido y, a 
medida que aumentemos este paráme- 
tro, el tono irá siendo más agudo. 

Para los iniciados en música diremos 
que el Do medio del piano corresponde 
al tono cero y la diferencia entre dos nú- 
meros consecutivos es de un semitono. 

El programa 1 interpreta una escala en 
Do mayor en el SPECTRUM. 


REM re a 6 E E RRA 
20 REM * ESCALA EN DO MAYOR  * 
30 REM * SPECTRUM * 

40 REM 33636 de e e e 6 RR RA 

50. CLS 

60 FOR I=1 TO 8 

70 READ T,N$ 

80 PRINT AT 11,15;N$;" " 

%0 BEEP ,5,T 

100 FOR P=1 TO 100:NEXT P 

110 NEXT 1 

1:20 DATA: 0, :D0772, “REA, IMI".S,."FA* 
130 DATA 7,*"30L*",9,"LA",11,*"S81*,12,"D0" 


Los no iniciados en el lenguaje musical 
pueden probar algún efecto especial, 
como los trinos que simula el programa 2. 


REM 006 06 
20 REM * TRINOS * 
30 REM * SPECTRUM * 
90 REM AHHH AR 
50 CLS 

60 PRINT AT 11,13;"TRINOS" 
70 FOR I=1 TO 4 

80 FOR J=1 TO 50 

90 BEEP .02,40 

100 BEEP .02,40+1 

110 NEXT J 

120 FOR P=1 TO 100:NEXT P 
130 NEXT 1 


La instrucción SOUND se utiliza en varios 
ordenadores, aunque con formatos muy 
diferentes; por tanto, vamos a ir por par- 
tes. 


En el AMSTRAD la construcción SOUND 

tiene el siguiente formato: 
SOUND C,T,D,V,EV,ET,R 

De estos siete parámetros sólo son im- 
prescindibles los dos primeros, mientras 
que los otros cinco son opcionales. 

El parámetro C permite seleccionar los 
canales de sonido, ya que el AMSTRAD 
dispone de tres canales distintos. C pue- 
de ser cualquier número entero entre 1 y 
255, ya que es posible hacer 255 combi- 
naciones distintas de los canales. 

El parámetro T define el tono del soni- 
do. Debe ser un número entero compren- 
dido entre 0 y 4095. Cuanto menor sea el 
número, más agudo será el sonido. El Do 
medio del piano se corresponde con el 
tono 478. 

El parámetro D nos permite especificar 
la duración del sonido en centésimas de 
segundo. Podemos darle cualquier valor 
comprendido entre 1 y 32767. 

El parámetro V permite definir el volu- 
men del sonido con un número entero 
comprendido entre 0 (mínimo) y 15 
(máximo). 

El programa 3 es un ejemplo de funcio- 
namiento de estos cuatro parámetros. El 
ordenador interpreta una escala en Do 
mayor ascendente en la que cada nota 
dura el doble que la anterior, además de 
ir aumentando el volumen. A continua- 
ción suena la misma escala en sentido 
descendente, disminuyendo progresiva- 
mente la duración y el volumen. 


REM AAA ARA 
REM x ESCALAS * 
REM *x AMSTRAD * 
REM RRA 
CLs 

LET D=2:LET A=2 

FOR V=1 TO 15 STEP 2 
GOSUB 150 
NEXT Y 

LET A=1/2 

FOR V=15 TO 1 STEP -2 
GOSUB 150 


LOCATE 16,8:PRINT "NOTA: "¿N$¿" " 
LOCATE 16,12:PRINT "DURACION: ";D;" 
LOCATE 16,16:PRINT "VOLUMEN: “¿Uj¿" " 
SOUND 1,T,D,V 

LET D=Dx*A 

FOR P=1 TO 500:NEXT P 

RETURN 

DATA 239,D0,213,RE,190,M1,179,FA 
DATA 159,S0L,142,LA,127,S1,119,DO- 
DATA 119,D0,127,S1,142,LA,159,SOL 
DATA 179,FA,190,MI,213,RE,239,DO 


EV es la envolvente de volumen que 
permite variar el volumen de un sonido 
mientras está sonando. Análogamente, 
ET es la envolvente de tono y permite va- 
riar el tono de un sonido mientras esté 
sonando. 

Finalmente, el parámetro R permite la 
generación de ruidos. 

En la figura 1 podemos ver resumidas 
todas las características de SOUND en el 
AMSTRAD. 


O «--- Selección de canales 
<--=- Envolvente de volumen 
«--- Envolvente de tono 


O «-=-- Duración 


c 
o 
E 
2 
9 
> 
] 
v 
V 


NUMEROS DE DURACION 


HY «e--- Tono 
DD «--- Ruido 


SOUND 


ss 
m 
< 

ss 
m 
pl 

al 


SELECCION DE CANALES 


implícito: 20 


Efecto Margen: -32768 a 
Seleccionar canal A +32767 


Seleccionar canal B 
Seleccionar canal C Efecto 


Sincronizar con A Duración del sonido 
n 

Sincronizar con B Duración controlada 

Sincronizar con C por ENV 

Retener a 
etene Número de veces que 


Borrar cola se repite la envolvente 


El parámetro de generación de ruido 
que admite la instrucción SOUND en el 
AMSTRAD permite la creación de efectos 
especiales tan interesantes como el si- 
mulado en el programa 4, que produce 
el efecto de caída de una bomba y su ex- 
plosión posterior. 


REM 0 36 E IR 
20 REM* CAIDA DE BOMBA * 


30 REM x AMSTRAD * 
90 REM 03066 26 6 36 6 3 M6 M6 HI E 
50 CLS 


60 LOCATE 19,13:PRINT "CAIDA" 

70 FOR 1=50 TO 150 

SOUND 1,1,3,15,0,0,0 
1 


110 FOR I=1 TO 100 
120 SOUND 1,1,3,15,0,0,31 
130 NEXT 1 


dl BASIC 


En cuanto al IBM, también dispone de 
la instrucción SOUND, aunque con un for- 
mato mucho más sencillo: 


SOUND F,D 


siendo el parámetro F la frecuencia del 
sonido expresada en hertzios. Puede to- 
mar cualquier valor numérico compren- 
dido entre 37 y 32767. 


Y 


FRECUENCIA PERIODO ERROR RELATIVO 


.793 3822 -8.9B7% 
.648 3698 +9.027% 
.748 3495 -9.907% 
.891 3214 -8.904% 
.203 3034 +9.0099% 
.654 2863 -8.816% 
. 249 2793 +*9.009% 
.999 2351 -9.092% 
.913 2498 +9.995% 
.090 2273 +9.912% 
.278 2145 -9. 988% 
.?735 2925 +9.911% 


Octava -3 


FRECUENCIA PERIODO ERROR RELATIVO 


. 996 1911 -. DD7% 
.296 1894 :Y.007% 
.416 1793 . 822% 
.>82 16907 .DDA% 
. 407 1517 LS 
«307 1432 -.D19% 
. 999 1351 . 128% 
«999 1276 .D37% 
.826 1294 .DUS% 
. 1809 1136 .B32% 
. 541 1973 -D3I9% 
.471 1912 . 838% 


Octava -2 


FRECUENCIA PERIODO ERROR RELATIVO 


139.815 956 +9.046% 
138.591 982 +9.007% 
146.832 851 .D37% 
155.564 894 .858% 
164.814 758 ..B37% 
174.614 716 .B19% 
184.997 676 .D46% 
195.998 638 -D37% 
297.652 6982 .DUS% 
229.999 56 

233.082 536 

246.942 506 


Octava -1 


FRECUENCIA PERIODO ERROR RELATIVO 
261.626 478 .046% DO medía 

277.183 451 -DU7% 

293.665 426 .281% 

311.127 492 . 258% 

329.628 379 .957% 

349.228 358 .D19% 

369.994 338 .D46% 

391.995 319 .D37% 

415.395 391 

449.009 284 

466.164 268 

493.883 253 


Octava Y 


LA internacional 


El parámetro D indica la duración del 
sonido en tic-tacs de reloj, sabiendo que 
un segundo son 18,2 tic-tacs. La duración 
puede ser cualquier expresión numérica 
comprendida entre O y 65535. 

En la figura 2 podemos ver las frecuen- 
cias (para IBM) y los períodos de tono 
(para AMSTRAD) correspondientes a las 
ocho octavas utilizadas normalmente en 
música. 


FRECUENCIA PERIODO ERROR RELATIVO 


523.251 239 +9.046% 
554.365 225 -9.215% 
587.339 213 +9.9881% 
622.254 201 +9.0958% 
659.255 199 +9.206% 
698.457 179 +9.819% 
739.989 169 +9.046% 
783.991 159 -9.277% 
830.699 159 -8.328% 
888.999 142 -9.032% 
932.328 134 -48.055% 
987.767 127 +8.356% 


Octava 1 


FRECUENCIA PERIODO ERROR RELATIVO 


1£46.502 -B. 
1195.7351 4 +9. 
1174.657 ' -Q. 
124.508 -0. 
1318.510 0. 
1396.91 -B, 
1477.5778 « -Q. 
1567.982 +0. 
1661.219 -D, 
1768.9099 -B. 
1364.655 -B, 
1975.533 -B. 


Octava 2 


FRECUENCIA PERIODO ERROR RELATIVO 
2097.994 +9.462% 
2217.461 . 662% 
2349.3183 .390% 
2489.16 . 491% 
2637.921 ? .855% 
2793.826 .574% 
2959.955 . 548% 
3155.963 . 459% 
3322.438 .992% 
3520. 009 .357% 
3729.319 .417% 
3931.066 . 134% 


Octava 3 


FRECUENCIA PERIODO ERROR RELATIVO 
4186.009 +8.462% 
4434.922 -8.662% 
4598.636 .469% 
4978.932 .441% 
5274.941 .246% 
5587.652 .685% 
5919.911 .548% 
6271.927 . 350% 
6644.875 «992% 
79049.009 .357% 
7458.621 .417% 
7992.133 . 134% 


Octava 4 


Tabla de notas, frecuencias y períodos de tono para AMSTRAD e IBM. 


Por último, los MSX también cuentan 
con la instrucción SOUND para la genera- 
ción de sonidos. En este caso el formato 
es: 


SOUND R,CS 


siendo el parámetro R el número de re- 
gistro del chip de sonido sobre el que se 
va a actuar, y CS la característica sono- 
ra que aporta dicho registro, pudiendo 
ser cualquier valor comprendido entre 0 
y 259: 


Podemos actuar sobre 14 registros dis- 
tintos numerados del 0 al 13. 

Los MSX disponen de tres canales de 
sonido. El tono de cada canal se deter- 
mina cargando los valores de frecuencia 
deseados en los registros del 0 al 5 (0-1 
canal A, 2-3 canal B, 4-5 canal C). 

El registro 6 permite la generación de 
ruido. 

El registro 7 sirve para seleccionar los 
canales que emiten tono y los que emi- 
ten ruido. 

Los registros 8, 9 y 10 permiten ajustar 
el volumen de los canales A, B y C, res- 
pectivamente. 

Los registros 11 y 12 permiten controlar 
la envolvente de la onda sonora. 

Finalmente, el registro 13 define el tipo 
de envolvente a utilizar. 

En la figura 3 podemos ver una tabla es- 
quemática de estos 14 registros. 


Frecuencia canal A 
MI II 


FT EU 
Frecuencia canal B 


a 
sones conc] eee 


FT (E) 
Periodo de la envolvente 

CT (E) 
IN CIAICOS 


Ñ 


El programa ó es una pequeña muestra 
del funcionamiento de SOUND en los MSX. 
El efecto producido es el de un helicóp- 
tero en vuelo. 


Frecuencia canal C 


Tabla de funciones de los registros de soni- 
do en MSX. 


REM Ark 


20 REM x* HELICOPTERO  x 
30 REM x MSX * 
90 REM AXHHHHKLLLLE LEC 


cLs 

LOCATE 15,11:PRINT 
70 FOR I=0 TO 13 

READ D 

90 SOUND 1,D 

NEXT 1 

RESTORE 

GOTO 70 

DATA 200,15,200,15,200,15 
DATA 0,7,23,23,23,255,1,12 


"HELICOPTERO" 


'O El ordenador-piano 


Para terminar, el programa 7 transfor- 
ma el teclado de un AMSTRAD en un di- 
vertido piano. En pantalla aparece el di- 
bujo de las teclas del piano junto con la 
tecla del ordenador correspondiente a 
cada una, siguiendo la relación mostra- 
da en la figura 4. 

El tazado del piano en la pantalla se 
realiza con la subrutina de la línea 220. 

En la línea 70 almacenamos en la va- 
riable TS una cadena con todas las te- 
clas seleccionadas para simular el pia- 
no. A continuación un bucle WHILE-WEND 
nos permite tocar tantas notas como de- 
seemos, ya que es infinito. Para que se 
produzca el sonido de una nota cada vez 
que pulsamos una tecla utilizamos la fun- 
ción INKEYS. La función INSTR de la línea 
160 determina la posición que ocupa la 
tecla pulsada en la cadena T$. Dicho va- 
lor permite calcular la frecuencia de la 
nota (línea 170) y a partir de ella el tono 
(línea 180). La línea 190 es la que se en- 
carga finalmente dé producir el sonido 
correspondiente. 


10 REM AXAXERALELEAR AR AA 


REM * TECLADO DE PIANO 
REM * AMSTRAD 


CLS - 
GOSUB 180 


WHILE W=0 


IF N$="-" OR N$="D" 
LET A= ASCINS) 


LET N=INSTR(T$ ,N$) 


* 
* 


REM ARRE 


T$="Q2W3ERSTSY7UI9OOPILAZ co 


LET Né$=INKEY$:1F N$="" THEN GOTO 90 

IF N$="1" OR N$="9" OR N$="8" THEN GOTO 90 
OR N$="H" 
IF Ns=" or OR N$=";" OR N$="]" OR N$="x" THEN GOTO 90 


THEN GOTO 90 


IF A=9 OR A=16 OR A=127 THEN GOTO 90 
IF A=13 OR A=32 OR A=224 THEN GOTO 20 


E BASIC 


LET F=490*(2" (0+(N-10)/12)>) 
LET T=ROUND(125000!/F> 

SOUND 1,T,30,15 

WEND 

END 

REM * DIBUJO DEL TECLADO *x 

FOR I=10 TO 30 STEP 2 

FOR J=4 TO 4 

IF I=14 OR I=22 OR I=28 THEN GOTO 270 
LOCATE 1,J:PRINT CHR$(143) 

NEXT J:NEXT 1 

MOVE 120,254 

DRAWR 384,0 

MOVE 120,350 

DRAWR 384,0 

FOR X=120 TO 504 STEP 32 

MOVE X,256 

DRAWR 0,949- 

NEXT X 

FOR I=10 TO 24 STEP 2 

FOR J=14 TO 16 

IF I=14 OR I=20 THEN GOTO 400 

LOCATE 1,J:PRINT CHR$(143) 

NEXT J:NEXT 1 

MOVE 152,96 

DRAWR 320,0 

MOVE 152,190 

DRAWR 320,0 

FOR X=152 TO 472 STEP 32 

MOVE X,96 

DRAWR 0,94 

NEXT X 

LOCATE 10,13:PRINT "23 567 920  “" 
LOCATE 9,10:PRINT "QWERTYUIOP 31” 
LOCATE 10,13:PRINT "AS FG 
LOCATE 11,20:"2XCUBNM, 
RETURN 


DO RE MIFA SOLLA SIDO RE MI Este programa sería análogo para el 
Cc OD IEF GA BC DE IBM. Sólo variarían las instrucciones de di- 
bujo del teclado, como vimos en el apar- 
tado anterior. 


= 08 6908 08 0.51 
a AMERO >. 
NR: 0 AAA JO ml 5 | [A Relación entre el 
o E — Y — LL a teclado del AMSTRA 

Y SODIO. 10d quo del pleno: ds 


de 
transferencia 


E denominan así a las 
instrucciones que sir- 
ven para hacer que 
el microprocesador 
altere el orden nor- 
mal de ejecución, 
que es el orden se- 
cuencial, para conti- 
nuar ejecutando instrucciones conteni- 
das en otra zona de la memoria. 

El microprocesador 8088 funciona eje- 
cutando en todo momento la instrucción 
apuntada por la pareja de registros CS:IP. 
Cuando finaliza una instrucción que no 
es de transferencia, la unidad de ejecu- 
ción se encarga de preparar el registro 
IP para que apunte a la instrucción si- 
guiente. Esto lo consigue sumando a IP la 
longitud (número de bytes) de la instruc- 
ción que acaba de ejecutar. Sin embar- 
go, en las instrucciones de transferencia, 
el registro IP, y en ocasiones también el 
CS, se cargan con valores que apuntan 
a otra posición de memoria, provocando 
con esto que se transfiera la ejecución a 
dicha posición. 

Hay cuatro clases de instrucciones de 
transferencia: 

— incondicionales. 

— Condicionales. 

— lteraciones. 

— interrupciones. 

Las instrucciones de transferencia in- 
condicionales, como su nombre indica, 
provocan la transferencia sin depender 
de ninguna condición. Pertenecen a este 
grupo las instrucciones CALL, RET y JMP. 
Las dos primeras se describieron en el 
tomo 19 y la tercera se explica a con- 
tinuación. 

Hay 18 instrucciones de transferencia 
condicional (que se verán más adelan- 
te), que provocan la transferencia o no, 
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dependiendo del estado de los «flags» 
del microprocesador. 

Las instrucciones de iteración son: 
LOOP, LOOPZ (o LOOPE), LOOPNZ (o LOOP- 
NE) y JCXZ. Estas instrucciones efectúan 
la transferencia dependiendo también 
de una condición, que es el contenido 
del registro CX. Dicho registro es utilizado 
por el microprocesador como contador 
interno de bucles. 

El último grupo lo forman las instruccio- 
nes INT e IRET, ya estudiadas en el tomo 
25, que junto con la INTO forman el gru- 
po de instrucciones de interrupción y 
que actúan realizando transferencias in- 
condicionales. 

El nemotécnico INTO significa «interrup- 
ción en caso de overflow». «Overflow» es 
un término informático que no suele tra- 
ducirse al español y significa que, en una 
operación aritmética, se ha perdido el 
dígito binario más significativo de un nú- 
mero, debido a que se ha excedido la 
capacidad del registro que lo contiene. 
El «flag» OF se pone en «on» cada vez que 
se produce esta situación. 

La instrucción INTO comparte las princi- 
pales características de las interrupcio- 
nes llamadas con INT, pero se diferencia 
en dos aspectos: 

— En su sintaxis, porque en vez de dis- 
tinguirse de las demás por medio de un 
operando numérico, se distingue por la 
adición de la letra O al nemotécnico. 

— Y en la ejecución, que está condi- 
cionada a que esté en «on» el «flag» de 
«Overflow» (OF). 


La instrucción JMP 


Esta es una de las sentencias básicas 
del ensamblador, con la cual se puede 
transferir el control de ejecución a cual- 
quier otra parte de un programa, de for- 
ma incondicional. 

Se le suele denominar también instruc- 
ción de «salto» o «bifurcación» y es aná- 
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loga a la instrucción CALL en cuanto a sus 
modalidades, su sintaxis y la forma de 
calcular las direcciones donde realizar 
las transferencias, diferenciándose úni- 
camente en el hecho de no guardar en 
la pila la dirección de retorno. 

El formato de la sentencia JMP es el 
siguiente: 

(etiqueta: ] JMP objetivo 

Etiqueta. Es un nombre opcional que, 
como en todas las sentencias ejecuta- 
bles, puede servir para referenciar a esta 
instrucción. 

JMP. Es el nemotécnico de la instruc- 
ción, abreviatura de la palabra inglesa 
«jump», que significa «saltar». 

Objetivo. Es el operando mediante el 
cual se especifica la dirección a la que 
debe transferirse la ejecución. El objetivo 
puede ser: una etiqueta, un registro (que 
no sea un registro de segmento) o una re- 


ETIQUETA-N: 
ETIQUETA-N 
ETIQUETA-N 


LABEL NEAR 
PROC NEAR 


LABEL FAR 
PROC FAR 


ETIQUETA-F 
ETIQUETA-F 


MEMORIA-1 
MEMORIA-2 
MEMORIA-4 


DB o 
DW o 
DD o 


¡ Etiqueta 


ferencia explícita a la memoria (ver tomo 
número 13). 

Igual que las CALL, las instrucciones 
JMP pueden clasificarse en «intra-seg- 
mento» e «inter-segmentos», según que la 
dirección de memoria objetivo se refe- 
rencie con el mismo registro de segmen- 
to o con un registro de segmento diferen- 
te del que tiene la propia instrucción 
JMP. Por otra parte, también pueden cla- 
sificarse en «directas» e «indirectas», de- 
pendiendo de si el objetivo especifica 
directamente la dirección de bifurcación 
o define una posición de memoria, que 
es la que contiene la dirección de bifur- 
cación. En este caso, la citada posición 
de memoria puede definirse empleando 
todas las formas descritas en el apartado 
«Tipos de direccionamiento de la memo- 
ria», del tomo 13. 

A continuación se dan algunos ejem- 
plos de instrucciones JMP, asi como de la 
forma de definir sus operandos. 


Eti queta 
Eti queta 
Etiqueta 


tipo 
tipo 
tipo 


FAR 
FAR 


tipo 
Etiqueta tipo 
Posición 
Posición 
Posición 


de memoria de 1 byte. 
de memoria de 1 palabra. 
de memoria de 2 palabras. 


JMP ETIQUETA-N 


AX 

WORD PTR MEMORIA-1 
MEMORIA-2 

WORD PTR MEMORIA-4 
WORD PTR [BXJ 


ETIQUETA-F 
FAR PTR ETIQUETA-N 


MEMORIA-4 

DWORD PTR MEMORIA-1 
DWORD PTR MEMORIA-2 
DWORD PTR [BP] 


— En las instrucciones JMP intra-seg- 
mento directas, el objetivo es una etique- 
ta tipo NEAR (ejemplo 1), es decir, una 
etiqueta perteneciente al propio seg- 
mento. 

— En las instrucciones JMP intra-seg- 
mento indirectas, el objetivo es un regis- 
tro que no sea registro de segmento 
(ejemplo 2), o una posición de memoria 


intra-segmento directa 
ejemplo 1 

intra-segmento indirectas 
ejemplo 2 

ejemplo 3 

ejemplo 4 

ejemplo 5 

ejemplo 6 


5 inter-segmentos directas 
¡ ejemplo 7 


ejemplo 8 


inter-segmentos indirectas 
ejemplo 9 
ejemplo 10 
ejemplo 11 
ejemplo 12 


(ejemplos 3, 4, 5 y 6). En ambos casos 
debe cargarse previamente la dirección 
de memoria a la que se quiere bifurcar. 

— En las instrucciones JMP inter-seg- 
mentos directas, el objetivo es una eli- 
queta que se ha declarado como etiqueta 
tipo FAR (ejemplo 7), o una etiqueta a la 
que interesa, por alguna razón, efectuar 
una transferencia inter-segmentos, a pe- 


sar de estar declarada como tipo NEAR. 
En este caso hay que anteponer al nom- 
bre de la etiqueta las palabras FAR PTR 
(ejemplo 8). 

— En las instrucciones JMP inter-seg- 
mentos indirectas, el objetivo es una po- 
sición de memoria que contiene dos pa- 
labras, la primera es el desplazamiento y 
la segunda el segmento, que definen la 
dirección a la que se quiere bifurcar. En 
este caso, la citada posición de memo- 
ria debe haberse definido como DWORD 
(ejemplo 9), o ir precedida de las pala- 
bras DWORD PTR (ejemplos 10, 11 y 12). 
Por supuesto, debe cargarse previamen- 
te en dicha posición la dirección de me- 
moria a la que se quiere bifurcar. 


Transferencias condicionales 


El 8088 dispone de 18 instrucciones 
que efectúan transferencias condiciona- 
das al estado de los flags. Es decir, son 
instrucciones parecidas al JMP que sólo 
actúan si determinadas condiciones de 
los «flags» propias de cada instrucción re- 
sultan verdaderas. En caso contrario la 
ejecución continúa con la instrucción si- 
guiente. 

El formato de estas instrucciones es el 
siguiente: 

[etiqueta: J JXXX objetivo 
Etiqueta. Es un nombre opcional. 
JXXX. Representa 30 nemotécnicos de 

las 18 instrucciones. Dichos nemotécni- 
cos se forman con la letra J (inicial de 
jump), seguida opcionalmente de la le- 
tra N (inicial de not), y a continuación 
una letra que puede ser: E (inicial de 


igual 
menor 
mayor 
arriba 
abajo 
paridad 
acarreo 
over+low 
signo 


cero 
no mayor/igual 
no menor/igual 
no abajo/igual 


JZ 
JNGE 


paridad par 


nemotécnico nemotécnico 
equivalente equivalente 


no arriba/igual 


«equal», que significa igual), L («less», me- 
nor), G («greater», mayor), A («above», 
arriba), B («below», abajo), P («parity», pa- 
ridad), C («carry», acarreo), O («over- 
flow»), S («sign», signo). 

Resultan así 18 instrucciones de salto 
condicional asociadas a 9 condiciones 
afirmativas (JE, JL, JG, JA, JB, JP, JC, JO y 
JS), y 9 negativas (JNE, JNL, JNG, JNA, JNB, 
JNP, JNC, JNO y JNS). Los 12 nemotécni- 
cos restantes son equivalentes a algunos 
de los 18 reseñados. Por ejemplo: la ins- 
trucción JNL (bifurcar si no menor) se pue- 
de expresar también como JGE (bifurcar 
si mayor o igual). 

Objetivo. Es el operando mediante el 
cual se especifica la dirección a la que 
debe transferirse la ejecución. El objetivo 
de estas instrucciones tiene que ser for- 
zosamente una etiqueta tipo NEAR que 
corresponda a una posición de memoria 
que no esté situada a una distancia su- 
perior a 127 bytes. A estas etiquetas cer- 
canas se les denomina tipo SHORT. 

A continuación se da una tabla de to- 
dos los nemotécnicos válidos de instruc- 
ciones de transferencias condicionales, 
junto con la condición necesaria para 
que se realicen dichas transferencias. La 
tabla está dividida en dos mitades de 
nueve instrucciones, unas inversas de las 
otras. También se reflejan en la tabla los 
nemotécnicos equivalentes de cada ins- 
trucción. 

Estas instrucciones van siempre prece- 
didas por instrucciones que establecen 
los estados de los «flags», como son las 
instrucciones aritméticas (CMP, ADD, SUB, 
etcétera), lógicas (NOT, AND, OR, XOR, 
TEST), o específicas de manipulación de 
«flags» (STI, CLI, STC, CLC, etc.), que expli- 
caremos en el próximo tomo, número 40. 


no igual 
no menor 
no mayor 
no arriba 
no abajo 
no paridad 
no acarreo 
no overfl. 
no signo 


no cero 
mayor/igual 
menor /igual 
abajo/igual 
arriba/igual 
paridad impar 


Star trek para 
IBM 


STE programa, que ya 
apareció hace unos 
tomos en la versión 
del SPECTRUM, es una 
nueva versión de uno 
de los primeros jue- 
gos que aparecieron 
para ordenador. 

La aventura consiste en destruir una se- 
rie de naves invasoras que han entrado 
en nuestra galaxia y que quieren hacer- 
se con el poder de la Federación. 

El jugador es el capitán de la nave 
Aventura, que está provista de los últimos 
adelantos técnicos. Podemos usar los si- 
guientes elementos. 

— Pantalla de corto alcance. Para ver 
nuestro sector actual. 


PROGRAMA: STAR TREK 


IO SOS okSjolaiolalolajolok 
* * 
ECJETAR COTA RAE 
xk k 
JOAO OOO OOOO OO OOOO OOO OK 


AMOO OOO OOO OOOO OOO OOOO OOOO OO 


PROGRAMADO POR: 


Manuel Alfonseca 
y 
Francisco morales 


EEES 


REM x 


REM x*x 
*x (0) 1987 
REM x 


*x (c) Ediciones Siglo Cultural 


EEES 


k 


k 
* 
k 
* 


PROGRAMAS 


EDUCATIVOS + DE UTILIDAD + DE GESTION + DE JUEGOS 


— Pantalla de largo alcance. Para ver 
nueve sectores de una vez. 


— Pantalla con el mapa acumulado 
de la galaxia. Nos indica qué hay en 
cada uno de los sectores de la galaxia 
por los que ya hemos pasado. 

— Canon de rayos láser. 


— Canon de torpedos. 


También disponemos de un ordenador 
que nos permitirá calcular las trayecto- 
rias que debemos de seguir para acer- 
carnos a nuestras bases para reabaste- 
cernos de energía y torpedos, así como 
para sacar la trayectoria que han de te- 
ner los misiles para dar a los enemigos. 

Como los alienígenas también nos dis- 
paran, tenemos un equipo técnico que 
se encargará de arreglar la nave y de 
controlar los daños, pero en último extre- 
mo todo será de nuestra responsabili- 
dad. 


1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 


OOOO OOO OO OOOO OOOO OOIOOOOOOOOJO OK 


ORO OOOO OOOIOIOOIOOOIOOOlOjO OK 


* DEFINICION DE TABLAS * 
MOSSOS ISSO lO Olof lSlo llo joSjolRJOK 


G(8,8) : REM MAPA DE LA GALAXIA 

QQ$(8,32) : REM MAPA DE UN CUADRANTE DE LA GALAXIA 
ZZ(10,10) : REM MAPA ACUMULADO DE LA GALAXIA 

D(8) : REM DANOS EN LA NAVE ADVENTURE 

K(10, 3) : REM NAVES ENEMIGAS EN ESTE CUADRANTE 
B(1,2) : REM BASES ESTELARES EN ESTE CUADRANTE 
E(8,2) : REM ESTRELLAS EN ESTE CUADRANTE 


ES 


* VARIABLES *C* UTILIZADAS POS EL TORPEDO x*x 
US 


CA(8).CB(8),CC(8),CD(8) 
xxx VARIABLES CA” *x*x 


CA(1)=0 
CA(2)=-1 
CA(3)=-1 
CA(4)=-1 
CA(5)=0 
CA(6)=1 
CA(7)=1 
CA(8)=1 


Xook VARIABLES *CB” xxx 


CB(1)=-1 
CB(2)=0 
CB(3)=0 
CB(4)=1 
CB(5)=1 
CB(6)=0 
CB(7)=0 
CB(8)=-1 


xk VARIABLES *CC” x*xxk 


cc(1)=1 
Ccc(2)=1 
Ccc(3)=0 
CC(4)=-1 
Ccc(5)=-1 
Ccc(6)=-1 
CCc(7)=0 
cc(8)=1- 


Axk VARIABLES *CD” xxx 


CD(1)=0 
CD(2)=-1 
CD(3)=-1 
CD(4)=0 
CD(5)=0 
CD(6)=1 
CDE7F=1 
CD(8)>=0 


E EE TEE 


*k CREACION DE LA AVENTURA ESPACIAL *x 
ISSO fSlSlSlOlolojojojoK 
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1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
¿980 
.990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
224 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 


KEY OFF: FOR I=1 TO 10: KEY 1,"": NEXT 1 

RANDOMIZE TIMER 

LET B9=0:LET K9=0 

REM 

REM ARSS SS SlSlESISlSlSlPlPlSjPl”lPl”lE ISSO OSOS OSOS Sala lololololOK 
REM * GENERACION DE ESTRELLAS, BASES Y NAVES ENEMIGAS X 
ANI ELE 


REM 
FOR I=1 TO 8 
FOR J=1 TO 8 
LET A=RND(1) 
LET G(T, J)=AS+10*AB+100x*AK 
IF A>.8 THEN LET AK=1 
IF'A>.95 THEN LET AK=2 
IF A>.9799999 THEN LET AK=3 
LET K9=K9+AK. 
LET A=RND(1) 
LET AB=0 
IF A>.96 THEN LET AP=1 
LET B9=B9+AB 
TET AS=1+INT(8*RND) 
LET G(I,J)=AS+10*AB+100x*AK 
NEXT J 
NEXT I 
LET K7=K9 
REM 
REM *xx*x* POSICION DE LA NAVE “AVENTURA” *x*x* 
REM 
LET Q1=1+INT(8*RND):LET 92=1+INT(8*RND) 


LET S1=1+INT(8xRND):LET S2=1+INT(8x*RND) 


REM 

REM *x*x* CALCULO DE FECHAS *+xx 

REM E 

LET TO=100x(20+TNT(20*RND) >) : REM FECHA INICIAL 
LET T=T0 : REM FECHA ACTUAL 
LET T9=30: TF K9>20 THEN J.ET T9=35 : REM FECHA FINAL 
REM 

REM *** OTROS DATOS xx 

REM 

LET FO=3000 : REM ENERGIA INICIAL 

LET E1=EO : REM ENERGIA ACTUAL 

LET PO=10 : REM NUMERO TNICTAL DE TORPEDOS 

LET Pi=PO : REM NUMERO ACTUAL DE TORPEDOS 

LET SO=0 : REM ESCUDO PROTECTOR ACTUAL 

REM 

REM AMSS RSS SS SIS lO ”SlOlOlO OJO 


REM * COMIENZA LA AVENTURA x* 

REM RSS SISTE SOS lSlSlO OSO lSSIOROKOJOK 

REM 

CLS 

LOCATE 1,32:PRINT "S TAR T-REER" 

PRINT TAB(31):;."==========c=s======s===" 

PRINT 

PRINT "AL CAPITAN DE LA NAVE AVENTURA. ESTAS SON LAS ORDENES: " 

PRINT 

PRINT " Debe usted destruir las";K9;"naves enemigas que han invadido la" 
PRINT "galaxia, antes de que puedan atacar el cuartel general de la fede-" 
PRINT "racion.” 

PRINT 

PRINT " El ultimo dia habil es el";TO+T9;".Esto le deja";T9;"fechas" 
PRINT "estelares para completar la mision." 


PRINT 

PRINT " Hay";B9;" bases estelares en la galaxia. En ellas te puedes reabas-" 
PRINT "tecer de gasolina y de torpedos. " 

PRINT 

PRINT " BUENA SUERTE ...... (LA VA A NECESITAR)" 

PRINT:PRINT 


PRINT "PULSE UNA TECLA CUANDO ESTE LISTO PARA COMENZAR LA AVENTURA" 


2580 
2590 
2600 
2610 
2620 
2630 
2640 
2850 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 


AS= INKEYS$ 
IF A$="" THEN GOTO 2580 
REM 
REM *x*x*x INICIALIZAR PANTALLA xxx 
REM 
CLS 
LOCATE 2,6:COLOR 1,7 
PRINT " PANTALLA DF CORTO ALCANCE ":COLOR 7,0 
LOCATE 3,44 
PRINT "FECHA ESTELAR" 
LOCATE 4, 44 
PRINT "CONDICION" 
LOCATE 5,44 
PRINT "CUADRANTE" 
LOCATE 6, 44 
PRINT "SECTOR" 
LOCATE 7,44 
PRINT “ENERGIA TOTAL” 
LOCATE 8,44 
PRINT "TORPEDOS" 
LOCATE 9,44 
PRINT "ESCUDO PROTECTOR” 
REM 
REM *x*x* SALA DE CONTROL *x*x 
REM 
GOSUB 2840:GOTO 3080 
LOCATE 13,6:PRINT "PANTALLA DE LARGO ALCANCE":LOCATE 14,6 
IF D(3)<0 THEN GOTO 2990 
PRINT "--o=o=o===moo sá 
FOR I=1 TO 3 
LOCATE 14+1,6 
FOR J=1 TO 3 
LET A=0 
LET A1=Q1+I:LET A2=02+J 
IF (A1>2) AND (A1<11) AND (A2>2) AND (A2<11) THEN LET A=G(Al1-2,A2-2) 
LET ZZ(Q1+1-1.Q2+J-1)=4 
PRINT USING "$88": A; 
NEXT J 
NEXT 1 
LOCATE 18,6: PRINT "------------ F 
RETURN 
GOSUB 7930 
PRINT "PANTALLA DE LARGO ALCANCE ESTROPEADA" 
FOR I=1 TO 5 
LOCATE 13+1,6 
FOR J=1 TO 3 
PRINT " “" : REM 7 ESPACIOS 
NEXT J 
NEXT I 
RETURN 
REM 
REM x*xk ENTRAMOS EN UN NUEVO CUADRANTE *x*x 
REM 
LOCATE 5,60 
PRINT Q1:;",";Q2 
LET S3=G(Q1,Q2):LET K3=INT(S3/100):LET S3=S3-100*K3:LET B3=INT(S3/10):LET S 


3=33-10*B3 


3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 


REM 
REM *x** DISTRIBUCION DE OBJETOS EN EL CUADRANTE xxx 
REM » 
FOR I=1 TO 8 

FOR J=1 TO 32 

LET QQ$(1,J)=" " 

NEXT J 
NEXT I 
LET Q0$(S1, 1+4x*(S2-1))="<" 
LET QQ$(S1, 2+4*(S2-1))="=" 
LET QQ$(S1, 3+4*(S2-1))=">" 


DN PROGRAMAS 


3250 LET Fi$="+":LET F2$="+":LET F3$="+" 
3260 FOR I=1 TO K3 

3270 GOSUB 3490 

3280 LET K(1,1)=R1 

3290 LET K(1,2)=R2 

3300 LET K(1,3)=200 

3310 NEXT 1 

3320 IF K3=3 THEN GOTO 3360 

3330 FOR I=K3+1 TO 3 

3340 LET K(1,3)=0 

3350 NEXT 1 

3360 LET F1$="-":LET F2$="0":LET F3$="-" 
3370 FOR I=1 TO B3 

3380 GOSUB 3490 

3390 LET B(1,1)=R1 

3400 LET B(1.2)=R2 

3410 NEXT 1 

3420 LET Fi$=" ":LET F2$="*":LET F3$=" " 
3430 FOR I=1 TO $3 

3440 GOSUB 3490 

3450 LET E(1,1)=R1 

3460 LET E(1,2)=R2 

3470 NEXT 1 

3480 GOTO 3550 

3490 LET R1=1+INT(8*RND(1)):LET R2=1+INT(B8XRND(1)) 
3500 IF QQ$(R1,2+4*(R2-1))<>" " THEN GOTO 3490 
3510 LET QQ$(R1, 1+4x(R2-1))=F1$ 

3520 LET QQ$(R1, 2+4*(R2-1))=F2$ 

3530 LET QQ$(R1, 3+4*(R2-1))=F3$ 


3540 RETURN 

3550 REM 

3560 REM *x*x* COMPROBACION DE POSICION DE AMARRE CON ESTACION xxx 
3570 REM 

3580 IF B3=0 THEN GOTO 3660 : REM NO HAY BASE 

3590 IF S2<>B(1,2) THEN GOTO 3660 : REM NO ESTAMOS AMARRADOS 


3600 IF (S1<B(1,1)-1) OR (S1>B(1,1)+1) THEN GOTO 3660 

3610 LOCATE 4,60: PRINT "EN PUERTO y 

3620 LET DO=1 ' : REM EN PUERTO 

3630 LET Eil=EO: LET P1=PO: LET SO=0 : REM REPOSTAMOS 

3640 GOSUB 7930: PRINT "SIN ESCUDO PROTECTOR PARA EL AMARRE" 
3650 GOTO 3770 

3660 LET DO=0 : REM NO ESTAMOS AMARRADOS 
3670 IF K3>0 THEN GOTO 3710 

3680 IF El<.1x*EO THEN GOTO 3760 

3690 LOCATE 4,60: PRINT "NORMAL (VERDE) " 

3700 GOTO 3770 

3710 LOCATE 4,60: COLOR 2: PRINT "ALERTA ROJA "COLOR 7 
3720 PLAY "03T150L8MSAAAPSAAA" 

3730 IF SO>200 THEN GOTO 3770 

3740 GOSUB 7930: PRINT "ESCUDO PROTECTOR PELIGROSAMENTE BAJO" 
3750 GOTO 3770 . 

3760 LOCATE 4,60: COLOR 14: PRINT "ALERTA AMARILLA": COLOR 7 
3770 IF D(2)<0 THEN GOTO 3860 : REM PANTALLA DE CORTO ALCANCE 
3780 LOCATE 3, 6:PRINT *-——————_——— == Ñ 

3790 FOR I=1 TO 8 

3800 LOCATE 3+1,6 

3810 FOR J=1 TO 32 


3820 PRINT Q0$(T.J); 
3830  - NEXT J 
3840 NEXT I 


3850 GOTO 3930 

3860 GOSUB 7930: PRINT "PANTALLA DE CORTO ALCANCE ESTROPEADA" 
3870 FOR I=1 TO 8 

3880 LOCATE 3+1,6 

3890 FOR J=1 TO 32 

3900 ERINT  s 

3910 NEXT J 

3920 NEXT I 


3930 LOCATE 12,B:PRINT "=== o--- a 
3940 LOCATE 3,60: PRINT T:" 

3950 LOCATE 6.60: PRINT S1:",":S2;" 

3980 LOCATE 7,60: PRINT El+S0:" 

3970 LOCATE 8.60: PRINT P1;" , 

3980 LOCATE 9.60: PRINT SO:" 

3990 REM 

4000 REM *x*x* COMPROBACION DE ENERGIA SUFICIENTE *x*x 

4010 REM 


4020 TF SO+E1<10 THEN GOTO 4040 

4030 IF (E1>10) OR (D(7)=0) THEN GOTO 4130 

4040 PLAY "O3T150L8MSAAAPBAAA" 

4050 CLS 

4060 PRINT "--- ERROR FATAL!!! LA NAVE HA QUEDADO VARADA EN EL ESPACIO" 
4070 PRINT "NO HAY ENERGIA SUFICIENTE, Y EL CONTROL DE ESCUDO NO PUEDE” 
4080 PRINT “PASAR ENERGIA A LA SALA DE MAQUINAS. " 
4090 GOTO 8090 

4100 REM 

4110 REM *** BUCLE DE PETICION DE ORDENES xxx 

4120 REM 

4130 LOCATE 22,44: PRINT "ORDENES: " 

4140 LOCATE 23,44: PRINT "-------- " 

4150 LOCATE 24,1:COLOR 0,7 

4160 PRINT " N=NAVEGACION C=CANON T=TORPEDO HE=ESCUDO D=DANOS O=ORDENADOR 


F=FIN " 
4170 COLOR 7,0 
4180 GOSUB 7140 : REM LEE UNA TECLA 
4190 IF I=70 THEN CLS:GOTO 8100 : REM FIN DEL JUEGO 


4200 IF I=78 OR I=110 THEN GOTO 4270 : REM NAVEGACION 

4210 IF I=67 OR I=99 THEN GOTO 4980 : REM CANON 

4220 IF T=84 OR I=116 THEN GOTO 5270 : REM TORPEDO 

4230 TF T=69 OR I=101 THEN GOTO 5630 : REM ESCUDO 

4240 IF J=68 OR I=100 THEN GOTO 5760 : REM DANOS 

4250 IF I=79 OR I=111 THEN GOTO 6170 : REM ORDENADOR 

4260 GOTO 4180 

4270 REM 

4280 REM *x*x* CONTROL DE NAVEGACION xxx 

4290 REM 

4300 LOCATE 22,44:PRINT "CURSO (1-9): : 

4310 LET N1=1:LET N2=9:LOCATE 22,65:GOSUB 7200: IF Ni=-1 THEN GOTO 4130 ELSE LET 
C1=N1 

4320 LOCATE 23,44:PRINT "VELOCIDAD (0-8): 3 
4330 LET N1=0:LET N2=8:LOCATE 23,65:GOSUB 7200: IF N1=-1 THEN GOTO 4130 ELSE LET 
W1=N1 

4340 IF C1=9 THEN LET C1=1 

4350 IF (W1=<.2) OR (D(1)>=0) THEN GOTO 4390 

4360 GOSUB 7930:PRINT "MOTORES DAXADOS Y 

4370 LOCATE 15,44:PRINT "VELOCIDAD MAXIMA=0. 2 o 

4380 GOTO 4270 

4390 LET N=INT(.5+8xW1):IF El>=N THEN GOTO 4440 ó 
4400 GOSUB 7930:PRINT "ENERGIA INSUFICIENTE PARA MANICBRAR” 

4410 IF (D(7)<0) OR (SO<N-E1) THEN GOTO 4130 

4420 LOCATE 15,44:PRINT SO; "UNIDADES DISPONIBLES EN EL ESCUDO" 

4430 GOTO 4130 

4440 REM 

4450 REM *xx** COMIENZA EL MOVIMIENTO xxx 

4460 REM 

4470 REM *x*x* PRIMERO EL ENEMIGO ATACA *xx 

4480 REM 

4490 GOSUB 7520 

4500 REM 

4510 REM *x** REPARACIONES EN MARCHA *x*x 

4520 REM 

4530 GOSUB 7750 

4540 LET XX1=S1:LET XX2=52 

4550 LET QQ$(INT(S1),1+4*(INT(S2)-1))=" ” 

4560 LET QQ$(INT(S1),2+4x*(INT(S2)-1))=" " 

4570 LET QQ$(INT(S1),3+4*(INT(S2)-1))=" 


WJ PROGRAMAS 


4580 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
4690 
4700 
4710 
4720 
4730 
4740 

4750 
4760 
4770 
4780 
4790 
4800 
4810 
4820 
4830 
4840 
4850 
4860 
4870 
4880 
4890 
4900 
4910 
4920 
4930 
4940 
4950 
4960 
4970 
4980 
4990 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 


LET X1=CA(INT(C1))+CB(INT(C1))*(C1-INT(C1)) 

LET X2=CC(INT(C1))+CD(INT(C1))*(C1-INT(C1)) 

LET I=1 

LET S1=S1+X1:LET S2=S2+X2 

IF (S1<1) OR (S1>=9) OR (S2<1) OR (S2>=9) THEN GOTO 4740 
IF QQ$(INT(S1),2+4*(INT(S2)-1))=" " THEN GOTO 4680 
LET S1=S1-X1:LET S2=S2-X2 

GOSUB 7930:PRINT "PARADA AUTOMATICA DE MOTORES ds 
LOCATE 15,44:PRINT "DEBIDO A MALA NAVEGACION > 
GOTO 4690 É 

LET I=1+1:IF N>=1I THEN GOTO 4610 

LET QQS(INT(S1), 1+4*(INT(S2)-1))="<" 

LET QQ$(INT(S1),2+4x*(INT(S2)-1))="=" 

LET QQ$(INT(S1),3+4*(INT(S2)-1))=">" 

GOSUB 4900 

LET S1=INT(.5+S1):LET S2=INT(.5+S2):GOTO 3550 

LET XX1=(8*Q1)+XX1+N*xX1 

LET XX2=(8*Q2)+XX2+N*X2 

LET Q1=INT(XX1/8):LET S1=INT(XX1-8*Q1) 

LET Q2=INT(XX2/8):LET S2=INT(XX2-8*Q2) 

IF S1=0 THEN LET S1-8:LET Q1=Q1-1 

IF S2=0 THEN LET S2=8:LET Q2-=Q2-1 

IF Q1<1 THEN LET Q1=1:GOSUB 4860 

IF Q2<1 THEN LET Q2=1:GOSUB 4860 

IF Q1>8 THEN LET Q1=8:GO5UB 4860 

IF Q2>8 THEN LET Q2=8:GOSUB 4880 

GOSUB 4900 

LET S1=INT(.5+S1):LET S2=INT(.5+82):GOTO 2800 

GOSUB 7930: PRINT "DETENCION AUTOMATICA DE MOTORES" 
LOCATE 15,44: PRINT "PERMISO DENEGADO PARA ABANDONAR" 
LOCATE 16,44: PRINT "LA GALAXIA : 
RETURN 

LET El=E1-N-10 

IF E1>=0 THEN GOTO 4960 

GOSUB 7930:PRINT "ENERGIA TRANSFERIDA DESDE EL ESCUDO" 
LOCATE 15,44:PRINT “PARA COMPLETAR LA MANIOBRA" 

LET S0=S0+E1: IF SO<O THEN LET SO=0 

LET El=0 


s 


LET TT1=.1*xINT(10*xW1):IF TT1>1 THEN LET TT1=1:LET T=T+TT1 
IF T>TO+T9 THEN GOTO 8099 ELSE RETURN 

REM 

REM *x*x* DISPARO DE CAXONES LASER *x*x 

REM 

IF K3>0 THEN GOTO 5040 

GOSUB 7930:PRINT "NO HAY NAVES ENEMIGAS A LA VISTA ” 


GOTO 4130 = 

IF D(4)>=0 THEN GOTO 5070 

GOSUB 7930:PRINT "EL CANON LASER NO FUNCIONA E 
GOTO 4130 

GOSUB 7930:PRINT "CANON LASER APUNTANDO AL OBJETIVO  "“ 


5080 LOCATE 15,44:PRINT "ENERGIA DISPONIBLE=":E1 

5090 IF D(8)>=0 THEN GOTO 5110 

5100 LOCATE 16,44:PRINT "MENOR PRECISION POR FALLO COMPUTADOR" 

5110 LOCATE 22,44:PRINT "ENERGIA DE DISPARO: "; 

5120 LET Ni=0:LET N2=E1:LOCATE 22,65:GOSUB 7200: 1F F1i=-1 THEN GOTO 4130 ELSE LET 
C1=N1 

5130 LET El=E1-C1 

5140 GOSUB 7520 

5150 IF D(7)>=0 THEN GOTO 5170 

5160 LET C1=C1*RND 

5170 LET C1=INT(C1/K3)>) 

5180 FOR I=1 TO 3 

5190 IF K(1,3)=0 THEN GOTO 5250 

5200 LET H=INT((2+RND)*C1/SQR(((K(I, 1)-S1)*(K(I, 1)-S1))+((K(I, 1)-S2)*x(K(1,2)- 
S2)))) 

5210 IF H=>.15*K(1,3) THEN GOTO 5250 

5220 LET K(1,3)=K(1,3)-H 

5230 GOSUB 7930:PRINT H; "UNIDADES PARA ENEMIGO. EN";K(1,1);K(I,2) 


5240 
5250 


IF K(1,3)=0 THEN LET XA=K(1,1):LET XB=K(I,2):GOSUB 7290 
NEXT I 


5260 GOTO 3550 
5270 REM 


5280 
5290 
5300 
5310 
5320 
5330 
5340 
5350 
5360 
5370 
5380 
5390 
5400 
5410 
5420 
5430 
5440 
5450 
5460 
5470 
5480 
5490 
5500 
5510 
5520 
5530 
5540 
5550 
5560 
5570 
5580 
5590 
5600 
5610 
5620 
5630 
5640 
5650 
5660 
5670 
5680 
5690 
5700 
5710 
5720 
5730 
5740 
5750 
5760 
5770 
5780 
5790 
5800 
5810 
5820 
5830 
5840 
5850 
5860 
5870 
5880 
5890 
5900 
5910 


REM *x** LANZAMIENTO DE UN TORPEDO »*oex 
REM 
GOSUB 7930 ' 
IF D(5)<0 THEN PRINT "LOS TUBOS DE TORPEDOS NO FUNCIONAN":GOTO 4130 
IF Pi=<0 THEN PRINT "TORPEDOS AGOTADOS ":GOTO 4130 
LOCATE 22,44:PRINT “CURSO TORPEDO (1-9): ”; 
LET N1=1:LET N2=9:LOCATE 22,65:GOSUB 7200: IF Ni=-1 THEN GOTO 4130 
IF Ni=9 THEN LET N1=1 
LET X1=CA(INT(N1))+CB(INT(N1))*(N1-INT(N1)) 
LET X2=CC(INT(N1))+CD(INT(N1))*(N1-INT(N1)) 
LET El=E1-2:LET P1=P1-1:LET XA=S1:LET XB=S2 
LOCATE 23,44:PRINT "CURSO DEL TORPEDO: " 
LET XA=XA+X1:LET XB=XB+X2 z 
IF (XA>=9) OR (XB>=9) OR (XA<1) OR (XB<1) THEN GOTO 5590 
LOCATE 23,65:PRINT XA;XB + 
LET I$-00$(INT(XA+.5),2+4*INT(XB-.5)) 
IF I$=" " THEN GOTO 5600 
IF I$="+" THEN GOSUB 7290:GOTO 5540 
IF I$="x" THEN GOTO 5580 
GOSUB 7930:PRINT "-BASE ESTELAR DESTRUIDA, ESTUPIDO!" 
LET B3=B3-1:LET B9=B9-1:LET DO=0 
LET QQ$(INT(XA), 1+4*INT(XB-1))=" " 
LET QQ$(INT(XA),2+4*INT(XB-1))=" " 
LET QQ$(INT(XA),3+4*INT(XB-1))=" " 
LET G(Q1,02)=53+10*(B3+10x*K3) 
GOSUB 2840 
GOSUB 7520 
LOCATE 22,55:PRINT " - 
LOCATE 23,65:PRINT " 
GOTO 3550 
GOSUB 7930:PRINT "UNA ESTRELLA ABSORBIO EL TORPEDO":GOTO 5540 
GOSUB 7930:PRINT "EL TORPEDO HA FALLADO EL OBJETIVO":GOTO 5540 
IF XH<>0 THEN LOCATE 3+XH,6+XK:PRINT " " 
LET XH=INT(XA+.5):LET XK=2+4*INT(XB-.5) 
LOCATE 3+XH,6+XK:PRINT "":PLAY “MFP4MB":GOTO 5400 
REM 
REM *x*x* TRASPASO DE ENERGIA AL ESCUDO PROTECTOR *xx*k 
REM 
GOSUB 7930 
IF D(7)>=0 THEN GOTO 5690 
GOSUB 7930:PRINT "EL ESCUDO PROTECTOR NO FUNCIONA":GOTO 4130 
LOCATE 22,44:PRINT "ENERGIA AL ESCUDO: "; 
LET N1=0:LET N2=E1+S0:LOCATE 22,65:GOSUB 7200: IF N1=-1 THEN GOTO 4130 
LET El=E1+S0-N1 
LET SO=N1 
GOSUB 7930:PRINT "ESCUDO A";SO;"SEGUN SUS ORDENES" 
LOCATE 9,60:PRINT SO 
LOCATE 22,65:PRINT ” ": GOTO 4130 
REM 
REM x*oxx INFORME DE DANOS xxx 
REM 
GOSUB 7930 
IF.D(6)<0 THEN PRINT "EL CONTROL DE DAXOS NO FUNCIONA  ":GOTO 5850 
FOR I=1 TO 8 

LOCATE 13+1I,44:GOSUB 6080:PRINT DD$;D(I) 
NEXT I 
GOSUB 8020 
IF DO=0 THEN GOTO 6020 
LET D3=0 
FOR I=1 TO 8 

IF D(1)<0 THEN LET D3=D3+.1 
NEXT I 
IF D3>1 THEN LET D3=1 
IF D3=0 THEN GOTO 6020 


4 


Y PROGRAMAS 


5920 
5930 
5940 
5950 
5960 
5970 
5980 
5990 
6000 
6010 
6020 
6030 
8040 
8050 
8060 
6070 
8080 
809) 
6100 
6110 
6120 
6130 
6140 
6150 
6160 
6170 
6180 
8190 
6200 
6210 
6220 
6230 
6240 


ANCIA 


6250 
6260 
6270 
6280 
6290 
6300 
6310 
6320 
6330 
6340 
6350 
6360 
6370 
9 

6380 
6390 
6400 
6410 
6420 
6430 
6440 
6450 
6460 
6470 
6480 
6490 
6500 
6510 
6520 
6530 
6540 
6550 
6560 
6570 


GOSUB 7930:PRINT "TECNICOS DISPUESTOS A REPARAR NAVE" 
LOCATE 15,44:PRINT "TIEMPO DE REPARACION ESTIMADO: " 
LOCATE 16, 44:PRINT D3: "FECHAS ESTELARES" 
LOCATE 17,44:PRINT "(AUTORIZA USTED LAS REPARACIONES?" 
LOCATE 22,44:PRINT "SI/NO: " 
LOCATE 22,65: INPUT 1$: IF I$<>"SI" THEN GOTO 3550 
FOR I=1 TO 8 
LET D(I)=0 
NEXT 1 
LET T=T+D3+.1:GOTO 5810 a 
GOSUB 2840:GOSUB 2840 
FOR I=1 TO 8 
LOCATE 13+1,44 
PRINT " 
NEXT 1 
GOTO 3550 
ON 1 GOTO 6090,6100,6110,6120,6130,86140,6150,8160 
DD$= "MOTORES ": RETURN 
DD$="PANTALLA CORTO AL. ": RETURN 
DD$="PANTALLA LARGO AL. ": RETURN 
DD$="CAXONES LASFR “: RETURN 
DD$="TUBOS DE TORPEDOS ": RETURN 
DD$="CONTROL DE DAXOS  ": RETURN 
DD$="CONTROL DE ESCUDO ": RETURN 
DD$="COMPUTADORA “- RETURN 
REM 
REM xxx COMPUTADORA DE A BORDO xxx 
REM 
GOSUB 7930 
IF D(8)<0 THEN GOTO 6330 e 
PRINT "COMPUTADOR ACTIVO, ESPERANDO ORDENES" 
LOCATE 24.1:COLOR 0,7 e 
PRINT " G=GALAXIA S=SITUACION T=TORPEDOS B=BASE D=DIRECCION--DIST 


COLOR 7,0 

GOSUB 7140 

IF I=71 OR I=103 THEN GOTO 6340 

IF 1=83 OR I=115 THEN GOTO 6590 

IF 1=84 OR I=116 THEN GOTO 6670 

IF I=66 OR I=98 THEN GOTO 6950 

IF 1=68 OR I=100 THEN GOTO 7020 

GOTO 6260 

PRINT "LA COMPUTADORA NO FUNCIONA ":GOTO 4130 
REM 

REM x*x** MAPA DE LA GALAXIA *xx 

REM 

LOCATE 13,5:COLOR 1,7:PRINT " MAPA ACUMULADO DE LA GALAXIA ":COLOR 6 


LOCATE 14,6:PRINT " 1 2 3 a 5 6 7 07 
LOCATE "ES BSBRTN TO" SS === ao oi Ao So sSeS2S*"iC0L6R 7.0 
FOR I=1 TO 8 

LOCATE 15+1,2 

PRINT I 

LOCATE 15+1,6 

FOR J=1 TO 8 

PRINT USING " $$8";ZZ(I+1,J+1); 

NEXT J 
NEXT 1 
LOCATE 14,44:PRINT "PRESIONE UNA TECLA PARA SEGUIR 
AS=INKEY$: IF A$="" THEN GOTO 6490 
LOCATE 13,5:PRINT " sy 
LOCATE 14,6:PRINT " j 
LOCATE 15,6:PRINT " 
FOR I=1 TO 8 

LOCATE 15+1,2 

PRINT " 
NEXT I 
LOCATE 14,44:PRINT " 


6580 
6590 
68600 
6610 
6620 
8630 
6640 
8650 
6660 
8670 
66880 
6690 
6700 
6710 
6720 
6730 
6740 
6750 
6760 
6770 
6780 
6790 
6800 
6810 
68820 
6830 
8840 
6850 
6860 
6870 
6880 
6890 
6900 
6910 
6920 
6930 
6940 
6950 
6960 
6970 
6980 
6990 
7000 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
7080 
7090 
7100 
7110 
7120 
7130 
7140 
7150 
7160 
7170 
7180 
7190 
7200 
7210 
7220 
7230 
7240 
7250 


GOSUB 2840:GOTO 4130 
REM k 
REM *x*x* SITUACION **x 
REM 
GOSUB 7930:PRINT "INFORME DE SITUACION: " 
LOCATE 15,44:PRINT "QUEDAN";K9; "NAVES ENEMIGAS" 
LOCATE 16,44:PRINT "QUEDAN"; TO+T9-T; "FECHAS ESTELARES" 
LOCATE 17,44:PRINT "HAY";B9; "BASES ESTELARES EN LA GALAXIA" 
GOTO 4130 
REM 3 
REM xxx CALCULO DE DIRECCION PARA TORPEDOS *x*x 
REM 
GOSUB 7930 
IF K3=0 THEN PRINT "NO HAY NAVES ENEMIGAS AQUI":GOTO 4130 
FOR I=1 TO 3 
IF K(1,3)=0 THEN GOTO 6750 
LET N1=K(I,1):LET N2=K(1,2):GOSUB 6800 
NEXT 1 
GOTO 4130 
REM 
REM Xxx RUTINA DE CALCULO DE DIRECCION/DISTANCIA *x*x 
REM 
LOCATE 14,44:PRINT “ DIRECCION DISTANCIA" 
LET X1=N1:LET X2=N2. 
LET A=S1-X1:LET X=X2-S2 
IF X<0O THEN GOTO 6880 ELSE IF A<O THEN GOTO 6910 
IF X>0 THEN GOTO 6850 ELSE IF A=0 THEN GOTO 6890 
LET Ci=1 
IF ABS(A)<ABS(X) THEN LET C1=C1+2-ABS(X/A) ELSE LET C1=C1+ABS(A/X) 
GOTO 6930" > 
IF A>0 THEN GOTO 6900 ELSE IF X=0 THEN GOTO 6910 
LET C1=5:IF (A=0) AND (X=0) THEN GOTO 6930 ELSE GOTO 6860 
LET C1=3:GOTO 6920 
LET C1=7 
IF ABS(A)<ABS(X) THEN LET C1=C1+2-ABS(A/X) ELSE LET C1=C1+ABS(X/A) 
LOCATE 14+I,44:PRINT C1,SQR(X*X+A*A) 
RETURN 
REM 
REM *x*x* CALCULO DE DIRECCION PARA BASES **kx* 
REM 
GOSUB 7930 
IF B3=0 THEN GOTO 7010 
LET N1=B(1,1):LET N2=B(1,2):LET I=1:GOSUB 6800:GOTO 4130 
PRINT "NO HAY BASES ESTELARES AQUI":GOTO 4130 
REM 
REM *x*x* CALCULO DE DIRECCION CUALQUIERA *x 
REM 
LOCATE 22,44:PRINT "10 COORDENADA: "; 
LOCATE 23,44:PRINT "20 COORDENADA: "; 
LET N1=1:LET N2=8:LOCATE 22,65:GOSUB 7200: IF N1=-1 THEN GOTO 4130 


LET Xi=N1:LET N1i=1:LET N2=8:LOCATE 23,65:GOSUB 7200: IF Ni=-1 THEN GOTO 4130 


LET N2=N1:LET N1=X1:1F N1=9 THEN LET Ni=1 

IF N2=9 THEN LET N2=1 

LET X2=N2:LET A=Q1-X1:LET X=X2-Q2 

GOSUB 7930:PRINT “DIRECCION DISTANCIA" 

LET I=1:GOSUB 6830:GOTO 4130 

REM 

REM *x*x* LEE UNA TECLA DE FUNCION »*xkx 

REM 

LET A$=INKEYS: IF A$="" THEN GOTO 7170: IF LEN(A$)<>2 THEN GOTO 7170 
LET I=ASC(RIGHTS$(A$,1)):IF I<59 THEN GOTO 7170 
RETURN 

REM 

REM x*x*x* PETICION DE DATOS xxx 

REM 

INPUT A 

IF (A<N1) OR (A>N2) THEN GOTO 7270 

LET N1=A:LET N2=B 


WI PROGRAMAS 


7260 
7270 
7280 
7290 
7300 
7310 
7320 
7330 
7340 
7350 
7360 
7370 
7380 
7390 
7400 
7410 
7420 
7430 
7440 
7450 
7460 
7470 
7480 
7490 
7500 
7510 
7520 
7530 
7540 
7550 
7560 
7570 
7580 
7590 
7600 
7610 
7620 
7630 
7640 
7650 
7660 
7670 
7680 
7690 
7700 
7710 
7720 
7730 
7740 
7750 
7760 
7770 
7780 
7790 
7800 
7810 
7820 
7830 
7840 
7850 
7860 
7870 
7880 
7890 
7900 
7910 
7920 
7930 


RETURN 
GOSUB 7930:PRINT "VALOR INVALIDO":LET Ni=-1 
RETURN 
REM 
REM *x*x* NAVE ENEMIGA DESTRUIDA *x*x* 
REM 
PLAY "0O3L8MNT120CDE2" 
GOSUB 7930:PRINT "-NAVE ENEMIGA DESTRUIDA! " 
LET K3=K3-1:LET K9=K9-1 
IF K9=0 THEN GOTO 7470 
FOR 13=1 TO 3 
IF XA<>K(13,1) THEN GOTO 7390 
IF XB=K(13,2) THEN GOTO 7400 
NEXT 13 
LET K(13,3)=0 
LET Q0$(INT(XA+.5),1+4x*INT(XB-.5))=" " 
LET QQ$(INT(XA+.5),2+4*INT(XB-.5))=" " 
LET QQ$(INT(XA+.5),3+4*INT(XB-.5))=" " 
LET G(Q1,Q2)=8S3+10*(B3+10*K3) 
GOSUB 2840 
RETURN 
CLS 
PRINT "-ENHORABUENA CAPITAN! LA ULTIMA NAVE ENEMIGA” 
PRINT "HA SIDO DESTRUIDA” :PRINT 
PRINT "SU EFICIENCIA ES IGUAL A"; INT(1000*K7/(T-TO)) 
END 
REM 
REM **x* ATAQUE ENEMIGO vox 
REM 
IF K3=0 THEN RETURN 
IF DO=0 THEN GOTO 7590 
GOSUB 7930:PRINT "LA BASE PROTEGE LA NAVE AVENTURA" 
RETURN 
FOR 12=1 TO 3 
IF K(12,3)=0 THEN GOTO 7720 
LET H=SQR(((K(12,1)-S1)*(K(12, 1)-S1))+((K(12, 2)-S2)*(K(12,2)-82))) 
LET H=INT((2+RND)*K(12.3)/H) 
IF H=0 THEN GOTO 7720 
LET SO=S0-H:GOSUB 7930:PRINT H; "UNIDADES ALCANZAN AL AVENTURA” 
LOCATE 15,44:PRINT "DESDE EL SECTOR";K(12,1);K(12,2) 
IF SO<O THEN CLS:PRINT "EL AVENTURA HA SIDO DESTRUIDO":GOTO 8080 
LOCATE 16,44:PRINT "ESCUDO DISMINUYE A ":SO 
IF (H<20) OR (.02>=H/S0) OR (RND>.5) THEN GOTO 7720 
LET I=INT(1+RNDx8): D(1)=D(I)-(H/SO0)-.5*RND 
LOCATE 17,44:PRINT "CONTROL DE DAXOS INFORMA: ” 
LOCATE 18,44:GOSUB 6080:PRINT DD$; "DANADO" 
GOSUB 8020 
NEXT 12 
RETURN 
REM 3 
REM x*x*x* REPARACIONES EN MARCHA xxx 
REM 
LET Di1=14:LET D6=W1:IF D6>1 THEN LET D6=1 
FOR I=1 TO 8 
IF D(I)=0 THEN GOTO 7850 
LET D(I)=D(1)+D6: IF D(I)<0 THEN GOTO 7850 
IF D(1)>0 THEN LET D(1I)=0 
LOCATE D1,44:GOSUB 6080 
PRINT DD$; "REPARADO ":GOSUB 8020 
NEXT 1 
IF RND>.1 THEN RETURN 
LET I=1+INT(8*RND) 
LET D(I)=D(1)-.1-RNDx*5 
GOSUB 6080 
GOSUB 7930:PRINT "CONTROL DE DANOS INFORMA: “ 
LOCATE 15,44:PRINT DD$;" DANADO  " 
RETURN 
REM 


REM *x*x* BORRA ZONA DE INFORMACION »*xx* 
7950 REM 

7960 FOR J=0 TO Y 

7970 LOCATE 23-J. 44 : 
7980 PRINT " il 

7990 NEXT J 

8000 LOCATE 14,44 o 
8010 RETURN 

8020 REM 

8030 REM xxx RETARDO *x*x*. 

8040 REM 

8050 FOR I=1 TO 500 

8060 LET J=2.2*1 

8070 NEXT 1 

8080 RETURN 

8090 PRINT "ES LA FECHA ESTELAR ":T 

8100 PRINT "QUEDAN”;K9; "NAVES ENEMIGAS EN LA GALAXIA AL FINAL DE SU MISION. " 
8110 PRINT "-LA FEDERACION SERA CONQUISTADA! " 

8120 END E 


Para utilizar este programa en el AMS- 
TRAD hay que realizar los siguientes cam- 


AMSTRAD 


1900 MODE 2 
1910 RANDOMIZE TIME 

2100 LET AS=1+INT(8*xRND(1)) 

2180. LET Qi=1+INT(BXRND(1)):LET Q2=1+INT(8BRND(1)) 

2190 LET Si=1+INT(B%RND(1)):LET S2=1+INT(8*RND(1)) 

2230 LET TO=100*(20+INT(Z20*RND(1))) 

2640 LOCATE 6,2: PEN 3 E 
2650 PRINT " PANTALLA DE CORTO ALCANCE *"s PEN 2 

3710 LOCATE 60,4:PEN 3:PRINT "ALERTA ROJA "PEN 2 

3720 REM 

3760 LOCATE 60,4: PEN 3:PRINT "ALERTA AMARILLA "PEN 2 

4040 REM 

4170 REM 

5160 LET C1i=C1*RND(1) , 

5200 LET H=INT ((2+RND (1)*C1/SOR(((K(1,1)-S1)*(K(1,1)-S1)) a 
+((K(1,2)-82)*(K1(1,2)-82)))) 

5620 LOCATE 6+XK,3+XH:PRINT " ":GOTO 5400 

6230 LOCATE 1,24 

6250 REM 

6370 LOCATE 5,132 FRINT " MAPA ACUMULADO DE LÁ GALAXIA" 

6390 LOCATE 56,15:PRINT "=============o=n=mosooooneoo=n==== q 

7620 LET H=INT ( (2+RND (1)x*K(12,3)/H) 

7680 IF (H<220) OR (.02>=H/S50) OR (RND(1)>.5) THEN 7720 

7690 LET I=INT(RND(1)*8+1):LET D(1)=D(1)-(H/SO)-—. GRND(1) 

7860 IF RND(1)>.1 THEN RETURN 

7870 LETR I=1+INT(8*RND(1)) 

7880 LET D(I)=D(1)—.1-RAND(1)*5 


Tm Bases 
2 de datos 
relacionales 


L modelo relacional 
ha surgido de la apli- 
cación de la teoría 
matemática de las 
relaciones a los mo- 
delos jerárquicos, 
como optimización 
de los esquemas de 
representación de red. Desde el punto 
de vista práctico (y al nivel de visión ge- 
neral en que nos encontramos), las «rela- 
ciones» se pueden concebir como unas 
tablas que incorporan tanto las informa- 
ciones propias de cada concepto como 
las relaciones de dependencia existen- 
tes entre ellos. 
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Si, por ejemplo, hemos de manejar la 
información sobre nuestra biblioteca que 
ya conocemos: 

WIRTH, Niklaus Aleman. Inst. Fed. Tecn. 

Alg.+Estruc. datos=Programas 382 
Casti 1980 1200 Díaz Sant. 

The design of a Pascal Compiler 
150 Amms. 1971 98 FF Lib. Univ. 

HARTNELL, Tim Británico. 

Int. Art.: conceptos y programas 
267 Anaya 1985 1.500 Lib. Tecni. 
Libro Gig. Jueg. para ZX Spectrum 
310 Anaya 1986 1.750 Edic. Perg. 
Libro Gig. Jueg. para ordenador 
259 Anaya 1984 1.500 Lib. Tecni. 

GRIES, David Estadouni. Cornell Univer- 
sity. 

Compiler Cnst. for Dig. Computers 

452 JhonW 1984 325$$ Ther. Lib. 
se podrían establecer las siguientes rela- 
ciones en el conjunto: 


AUTORES 


nombre 


WIRTH, Niklaus 
HARTNELL, Tim 


núm. autor 


nacionalidad institución 


alemana Ins. Fed. Tecn. 
británica 


Cornell Univers. 


GRIES, David 


núm. volumen título pág. ed. año precio librero autor 


v1 Alg.+Estruc. datos=Programa 382 E3 1980 1200 


- estadounidense 


L2 Al 
v2 The Design of a Pascal Compilers 150 El 1971 — 98FF L4 Al 
v3 Int. Art.: conceptos y programas 267 E2 1985 1500 L3 A2 
Vá4 Libro Gig. Jueg. para ZX Spectrum 310 E2 1986 1750 L1 A2 


Libro Gig. Jueg. para ordenador 
Complier Cnst. for Dig. Computer 


EDITORIALES 


núm. editorial nombre ciudad 


Londres 
Maarid 
Madrid 


Editions Ammstensig 
Ediciones Anaya 
Ediciones del Castillo 
Jhon Wiley € Sons, Inc NT 


Es LIBREROS 


núm. librero 


nomb 


Editorial Pergas 
Díaz de Santos 


Librería Técnica 
Librería Universitaria 
Thecnical Librarians 


Como se ve, las relaciones propuestas 
incorporan informaciones sobre los dife- 
rentes conjuntos presentes (autores, vo- 
lúmenes, editoriales y librerías), así como 
relaciones entre ellos (en VOLUMENES se 


núm. volumen 


La flexibilidad es grande y la facilidad 
para actualizar datos o relaciones, o 
para incluir relaciones nuevas, es tam- 
bién enorme. 

La teoría de las relaciones se basa en 
diversas condiciones que se han de cum- 
plir en las relaciones establecidas: 

— No debe haber dos líneas iguales 
en una tabla. 

— El orden de las líneas no es sig- 
nificativo. 

- El orden de las columnas no es sig- 
nificativo. 

Cada relación (tabla) tiene una clave 
de búsqueda que puede ser simple (un 
solo concepto) o compuesta de varias 
referencias. 

La gran ventaja de estos SGBD's rela- 
cionales proviene de la facilidad de ges- 
tión que el álgebra relacional aporta, de 
tal modo que los sistemas resultan suma- 
mente eficaces, a pesar de la redundan- 
cia de información que incluyen. 


DATOS EDITORIALES 


núm. editorial 


ciudad 


Madrid 
Madrid 
Barcelona 
Marsella 
Filadelfia 


re 


relacionan los autores, las editoriales y 
los libreros), aunque podrían haberse su- 
primido las informaciones de correspon- 
dencia en la relación VOLUMENES y haber 
creado otras relaciones: 


COMPRADO EN 
núm. volumen núm. librero 


v1 L2 


núm. librero 


Lenguajes utilizados 
en los SGBD 


Formando parte del propio SGBD, el ad- 
ministrador de la base dispone, usual- 
mente, de varios lenguajes: 

a) Lenguaje de definición de datos 
(DDI, Data Definition Language). Es el len- 
guaje utilizado para la definición del «es- 
quema» —estructura general, ligazón de 
componentes, etc.— de la base. 

b) Sub-lenguaje de definición de da- 
tos (DSDL, Data Subdefinition Language). 
Equivalente al DDL para la definición de 
los subesquemas que configuran la base 
de datos. 

c) Lenguaje de manipulación de da- 
tos (DML, Data Manipulation Language). 
Lenguaje utilizado para la inclusión, mo- 
dificación, extracción, ordenación, etc., 
de los datos presentes en la base. 

d) Lenguaje de consulta o de búsque- 
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da (DIL, Data Inquisition Language). De 
características semejantes al anterior 
—DML—, se utiliza para establecer con- 
sultas a la base de un modo autónomo 
(bien consultas puntuales o búsquedas 
complejas bajo alguna condición). 


Normalmente el lenguaje DML es ma- 
nejado desde un lenguaje convencional 
de programación (COBOL, PL/1, ENSAM- 
BLADOR, etc.): es decir, en el interior de 
un programa convencional se introduce 
un comando de DML para realizar la fun- 
ción deseada (almacenar un dato, leer- 
lo, sustituirlo por otro, etc.), en vez de dar 
el comando correspondiente de manipu- 
lación de datos propio del lenguaje de 
que se trata: así, desde el programa se 
interactúa con la base de datos; pero en 
ocasiones es útil realizar una consulta en 
la base de datos o una búsqueda ex- 
haustiva por uno o varios criterios de se- 
lección: en estos casos es útil que el 
SGBD disponga de un DIL para la consul- 
ta directa, sin necesidad de que deba 
hacerse un programa para una simple 
pregunta. 


En algunos SGBD's se introduce un úni- 
co lenguaje (SAL, Structured Query Lan- 
guage-Lenguaje de consultas estructura- 
das) que engloba todas las funciones an- 
tedescritas: definición de datos, consul- 
tas desde programas, consultas directas, 
especificación de restricciones, etc. 

Respecto de los lenguajes de manipu- 
lación de datos, se suelen clasificar en 
tres grupos: lenguajes «de navegación», 
lenguajes algebraicos y lenguajes orien- 
tados al cálculo. Los primeros se utilizan 
básicamente en las bases de datos jerár- 
quicas o en red y se caracterizan por- 
que, en algún modo, en la propia consul- 
ta se define el camino de acceso a los 
datos, por su situación o por su posición 
en el conjunto. El lenguaje algebraico es 
el modo usual de gestión en las bases de 
datos relacionales: las consultas consis- 
ten en una secuencia de operaciones re- 
feridas a las relaciones presentes en la 
base e, incluso, la propia consulta es una 
relación. El último tipo se basa en el cálcu- 
lo de predicados y en él desaparece 
la noción de secuencia: es un lenguaje 
no-procedural. 


'O Manejo de 


ficheros en 
PASCAL 
y APL 


L igual que vimos al 
hablar del manejo de 
la pantalla, en PAS- 
CAL y en APL el mane- 
jo de ficheros no está 
definido por comple- 
to de forma estándar, 
por lo que nos limita- 
remos a dar un ejemplo referido a un 
compilador o intérprete de cada uno de 
estos lenguajes. En el caso del primero, 
nos referiremos al compilador TURBO PAS- 
CAL, de la casa Borland. En el caso del 
APL tomaremos como ejemplo el intér- 
prete APL/PC de IBM. 


O Operaciones con ficheros 
en PASCAL 


Vamos a ver un ejemplo sencillo: un 
programa que crea un fichero y pide a la 
persona sentada ante el terminal que le 
proporcione mediante el teclado las lí- 
neas de texto que pasarán a formar los 
registros del fichero, y otro programa que 
lee el fichero creado por el programa an- 
terior y escribe los registros en la panta- 
lla. Las operaciones de ficheros que ten- 
drá que utilizar el primer programa son 
las siguientes: 

1. Declarar una variable de tipo fiche- 
ro. 
2. Asignar nombre al fichero. 

3. Crear el fichero y prepararlo para su 
utilización. 

4. Escribir líneas de texto en el fichero. 

5. Cerrar el fichero. 

Veamos el primer programa: 


TECNICAS 
DE PROGRAMACION 


program ESCRIBIR; 
var 
f:itext; 
linea:array [1..801 of char; 
j:integer; 
begin 
assign (f,*fichero”); 
rewrite (f); 
writeln (”Dame los registros 
del fichero”); 
repeat 
readln(linea); 
j:=80; 
while (j<>0) and (linealjl=” ”) 
do ja=j-13 
if ¿<>0 then writeln(f,linea) 
til j=05 


. ose(f) 


Los puntos de interés de este programa 
son los siguientes: 

1. Es preciso declarar una variable de 
tipo fichero de texto (f:text). La declara- 
ción se hace de un modo muy parecido 
al de una variable ordinaria (j:integer). 

2. Es preciso asignarle a dicha varia- 
ble el nombre del fichero correspondien- 
te. Esto se consigue con una instrucción 
especial: ASSIGN(f, fichero”). 

3. A continuación hay que abrir el fi- 
chero para escribir en él. Esto lo hace la 
instrucción: REWRITE(f). 

4. El programa escribe ahora un men- 
saje por la pantalla ('Dame los registros 
del fichero”), pidiendo a la persona sen- 
tada al terminal que le proporcione 
diversas líneas de texto que deben incor- 
porarse al fichero. Este proceso continua- 
rá hasta que se le proporcione al progra- 
ma una línea vacía. 

5. Dentro del bucle REPEAT se empie- 
za por leer una línea y por eliminar de 
ella los espacios en blanco situados al fi- 
nal. Esto es lo que consigue el bucle WHI- 
LE que, además, calcula el número de 
caracteres de la línea (una vez elimina- 
dos los blancos finales) sobre la variable 
entera j. 
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6. Sijes distinto de cero (es decir, si 
la línea no estaba vacía), se escribe esta 
línea en el fichero como un nuevo regis- 
tro. Esto lo hace la operación WRITELN (f, 
línea), que funciona de un modo total- 
mente análogo a la función WRITELN 
cuando se utiliza para escribir en la pan- 
talla. 

7. Cuando j es igual a cero (es decir, 
cuando le hemos dado una línea vacía), 
el bucle REPEAT-UNTIL llega a su fin. Enton- 
ces se cierra el fichero con la instrucción 
CLOSE(f) y el programa queda termina- 
do. 

Veamos un ejemplo de la utilización de 
este programa: 


RUN 
Dame los registros del fichero 
registro 1 


Este es el registro más largo de todos 
¡HOLA! 


Como se ve, hemos escrito cuatro re- 
gistros de distinta longitud. La quinta lí- 
nea la dimos en blanco (es decir, simple- 
mente presionamos la tecla ENTER) y esto 
fue la señal para dar por terminado el 
programa. 

Ahora vamos a pasar al segundo pro- 
grama PASCAL, que lee el fichero cons- 
truido por el programa anterior y lo escri- 
be en la pantalla (cada registro en una lí- 
nea diferente). 


J 

linea:array [1..801 of char; 
begin 

assign (f,*fichero”); 

reset (f); 

writeln ("Los registros del 

fichero sons”); 

while not eof(f) do begin 
readln(f,1linea); 
write(linea) 


end; 
close (f) 
end. 


Veamos los principales puntos de inte- 
rés de este programa: 
1. Al igual que en el programa ante- 


rior, hay que declarar una variable de 
tipo fichero de texto (f:text). 

2. También aquí es preciso asignarle 
a dicha variable el nombre del fichero 
correspondiente: ASSIGN(f, fichero”). 

3. A continuación hay que abrir el fi- 
chero para leer de él. Esto lo hace la ins- 
trucción: RESET(f). 

4. El programa escribe ahora un men- 
saje por la pantalla ('Los registros del fi- 
chero son:'). 

5. Dentro del bucle WHILE se empieza 
por leer una línea del fichero con la ins- 
trucción READLN(f, línea), que funciona 
igual que la instrucción READLN cuando 
se leen datos del teclado. A continua- 
ción, se escribe el registro leído en la 
pantalla con la instrucción WRITE(línea). 
Obsérvese que READLN, WRITELN, READ y 
WRITE se dirigen automáticamente al te- 
clado o a la pantalla si no se especifica 
ningún fichero de trabajo. 

6. El bucle WHILE continúa hasta que 
EOF(f) sea verdad. Esta es una función del 
sistema que nos dice si hemos encontra- 
do la marca de fin de fichero (es decir, si 
se nos ha terminado el fichero). Por tan- 
to, este programa leerá y escribirá por la 
pantalla todos los registros del fichero, 
hasta que se termine. En este momento 
se ejecutará la última instrucción, CLO- 
SE(f), que cierra el fichero. El programa 
ha terminado. 

Veamos cómo leería este programa el 
fichero creado por el programa anterior: 


RUN 
Los registros del fichero son: 
registro 1 

ro E: 

Este es el registro más largo de todos 
HOLA! ] 


O Operaciones con ficheros 
en APL 


En el intérprete APL/PC de IBM existe un 
espacio de trabajo que contiene un con- 
junto de funciones básicas que pueden 
utilizarse para trabajar con ficheros. Estas 
funciones, que realizan operaciones pa- 
recidas a las descritas en BASIC y PAS- 
CAL, son las siguientes: 


— WOPEN: Abre un fichero para lectu- 
ra y escritura. El argumento izquierdo de 
esta función, si existe, es el número del fi- 
chero (si no existe, se supone que es 1). 
El argumento derecho es el nombre del fi- 
chero, seguido por una coma y la letra D 
(entre comillas). 

— OPEN: Abre un fichero para lectura 
únicamente. Los argumentos son los mis- 
mos que los de WOPEN. 

— WRITEV: Escribe un registro de texto 
(una línea) en un fichero abierto por WO- 
PEN. El argumento izquierdo es el mismo 
que el de WOPEN. El argumento derecho 
es el texto a escribir en el fichero. : 

— READV: Lee el registro siguiente de 
un fichero abierto por OPEN o WOPEN. Su 
argumento derecho es el número del 
fichero. 

— CLOSE: Cierra el fichero. Su argu- 
mento derecho es el número del fichero. 

Veamos cómo se escribiría en APL el 
primer programa que sirvió como ejem- 
plo en PASCAL, junto con un ejemplo de 
su utilización. 


[01] ESCRIBIR 
[1] 41 WCPEN 'FICHERO,D' 
[21] 'Dame los registros del fichero' 
[21] BUCLE: A+B 
[31] >(0=PA)/FIN 
[4] 41 WRITEV A 
[5] BUCLE 
[6] FIN:CLOSE 1 
ESCRIBIR 
Dame los registros del fichero 
registro 1 
1.23 : 
Este es el registro más largo de todos 


¡HOLA! 


Veamos ahora el segundo programa, 
que lee los registros del fichero creado 
por el programa anterior y los escribe por 
la pantalla, junto con su ejecución. 


[01 LEER 

[11 1 OPEN 'FICHERO,D' 

[21 'Los registros del fichero son:' 
[2] BUCLE: A+READV 1 


[31 >(0=PA)/FIN 

[43 A 

[5] BUCLE 

[6] FIN: CLOSE 1 
LEER 


Los registros del fichero son: 
registro 1 

1.83 

Este es el registro más largo de todos 
¡HOLA! 


En APL es también posible (y muy sen- 
cillo) acceder directamente a la informa- 
ción contenida en los registros en un or- 
den diferente al secuencial. En general, 
esto es útil cuando los registros tienen 
longitud fija (pues entonces el sistema 
puede calcular con facilidad dónde co- 
mienza el registro que le hemos pedido). 
Para realizar las operaciones de lectura 
y escritura directa disponemos de las 
mismas funciones indicadas anterior- 
mente, aunque en lugar de WRITEV y 
READV utilizaremos las dos siguientes: 

— WRITE: Escribe un registro de texto 
(una línea) en un fichero abierto por WO- 
PEN. El argumento izquierdo es un conjun- 
to de tres números: el primero es el nú- 
mero del fichero; el segundo el número 
del registro sobre el que queremos escri- 
bir; el tercero es la longitud del registro. 
Se supone que se trata de un fichero cu- 
yos registros tienen todos la misma longi- 
tud. El argumento derecho es el texto a 
escribir en el fichero. 

— READ: Lee un registro de un fichero 
abierto por OPEN O WOPEN. Su argumen- 
to derecho es igual que el argumento iz- 
quierdo de WRITE. 

Si al abrir un fichero no ponemos la 
coma y la D detrás del nombre del fiche- 
ro, el sistema interpretará que no se tra- 
ta de un fichero de texto, sino que cada 
registro podrá contener información de 
cualquier tipo (números, caracteres, ma- 
trices, vectores, etc.). Esto permite una 
gran libertad en el almacenamiento de 
datos complejos en ficheros en disco. 

Veamos un ejemplo en el siguiente pro- 
grama, en el que los comentarios inclui- 
dos antes de cada línea explican su fun- 
cionamiento. 


FICHERO 

A Creación de un fichero 
WOPEN 'F1* s 

A Inicializamos el contador 


I-0 

A Leemos una línea del terminal 
L:'Dame un registro para el 
fichero' 
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7 A+-DO 

[81 A Fin del fichero si está vacío 
[9] >(0=PA)/LEER 

[10] A Añadir un registro de 100 bytes 
[11] (1,I,100)WRITE A 

[121 A Buscar más registros 

[131 IrI+1 

[14] =L 

[15] A Ahora vamos a leer registros 
[161 LEER: 'Dame el número del registro' 
[171] A+*O 

[18] A Terminar si el número es negativo 
[19] >(A<0)/FIN 

[207] A O demasiado grande 

[21] >(A2I)/FIN 

[221 A Leemos el registro y lo escribimo 
[231] A en la pantalla 

[24] READ 1,A,100  “ 

[25] A Leemos más registros 

[261 LEER 

[271 A Cerramos el fichero 

[281] FIN:CLOSE 1 


FICHERO 
Dame un registro para el fichero 
D: 

ESF 6 
Da un registro para el fichero 
D: 

*ABCDEFGH' 
Da un registro para el fichero 
D: 

3%4¿pr.12 
Dame un registro para el fichero 
D: 

3 3 p 'ABCD' 
Dame un registro para el fichero 
D: 

1 10 
Dame un registro para el fichero 
D: 


opo 


Dame el número del registro 
D: 
3 

A3C 

DAB 

CDA 

Dame el número del registro 
D: 


1 
ABCDEFGH 
Dame el número del registro 
D: 

0 
E E 
Dame el número del registro 
D: 


4 
132343 '6:778 9-10 
Dame el número del régistro 


4 


9 10 11 Ze 
Dame el número del registro 
D: 
1 
ABCDEFGH 
Dame el número del registro 


Dame el número del registro 
D: 
10 


LOGO 


Otra manera 
de dar 
órdenes 

a la tortuga 


AMOS a definir un pro- 
cedimiento que nos 
va a servir para man- 
darle a la tortuga que 
ejecute comandos, 
pero en lugar de es- 
cribirlos como hasta 
ahora utilizaremos 
una tecla para cada uno. 
El procedimiento podría ser: 


? PARA COMANDOS 

> ES [ESTOY ESPERANDO QUE 
PULSES UNA TECLA] 

HAZ "TECLA LC 

ES ¡TECLA 

SI ¿TECLA = 0 [ALTO] 

SI ¿TECLA = "A [AV 10] 

SI ¿TECLA = "R [RE 10] 

SI ¿TECLA = "D [GD 90] 

SI ¿TECLA = "I [Gl 90] 

SI ¿TECLA = "L (BPJ] 

SI ¿TECLA = "S [SLI] 

SI ¿TECLA = "B (BLI 

SI ¿TECLA = "0 [OT] 

SI ¿TECLA = "M [MT] 

SI ¿TECLA = "E [ES ";¡¡HOLA!!J 
SI ¿TECLA = "C [REPITE 36 
[AV 1 GD 103] 
SI ¿TECLA = "6 
COMANDOS 
FIN 


ETC TA A e Y NE A 


[GOMA] 


Ahora podemos hacer algunos dibujos 
pulsando teclas. Por ejemplo, si ejecuta- 
mos el procedimiento COMANDOS y pul- 
samos las siguientes teclas: 


(-](-] 82] JE] [>] 
E Y A E E 


nos queda: 


[] 


!HOLA 11 

ESTOY ESPERANDO OUE PULSES UNA 

g TECLA 
>2m 


Podemos asignar un comando a todas 
las teclas que queramos teniendo cuida- 
do de no usar una misma tecla para va- 
rias comandos. 


'O Os proponemos 


1. Escribe un procedimiento parecido 
al anterior, pero que en lugar de asignar 
comandos a las teclas éstas nos sirvan 
para hacer figuras. Por ejemplo: 

T— triángulo 
C —= cuadrado 
P —= pentágono 
R = círculo , 


'O Otro comando de escritura 


Cuando queremos que la tortuga nos 
escriba algo en la pantalla utilizamos el 
comando ES. Pues bien, hay otro coman- 
do que también nos permite hacer esto, 
aunque de una forma un poco diferente. 

El comando 


TECLEA obj 


sirve para escribir obj (número, letra, pa- 
labra, lista o contenido de una variable) 


e LOGO 


por la pantalla, pero sin saltar a la línea 
siguiente, mientras que ES sí que lo hace. 

Vamos a ver la diferencia con algunos 
ejemplos: 


? TECLEA “HOLA 
HOLA ? 


? TECLEA “SACA TECLEA "PUNTAS 
SACAPUNTAS ? 


> TECLEA “SACA ES “PUNTAS 
SACAPUNTAS 
>m 


Una función nueva 


Puede haber casos en que nos intere- 
se saber si una determinada cosa forma 
parte de una lista. 

Para eso podemos utilizar la función 


MIEMBRO? obj) lista 


que devuelve CIERTO si obj (número, le- 
tra, palabra...) está dentro de lista y FAL- 
SO si no es asi. 

Como siempre, al ser MIEMBRO? una 
función tenemos que usar el resultado 
para algo. En este caso lo normal será ha- 
cerlo como condición para el coman- 
do SI. 

Por ejemplo, supongamos que guarda- 
mos en una variable los nombres de 
nuestros amigos y luego queremos saber 
si hemos metido o no a uno en concreto. 

El procedimiento nos quedaría así: 


? PARA AMISTAD ¿NOMBRE 


> HAZ "AMIGOS [JOSE LUIS JUAN ANTONIO] 
> SI MIEMBRO? ¿NOMBRE :AMIGOS 
[ES "AMIGOJ] [ES [NO AMIGO] ] 


> FIN 


y al ejecutarlo saldría: 


IO Un procedimiento para jugar 


El juego va a consistir en adivinar un nú- 
mero que la tortuga va a pensar. Para 
ello nuestra amiga calcula un número 
comprendido entre 0 y 9, aleatoriamen- 
te. Después, nosotros iremos pulsando te- 
clas hasta que acertemos. 

En el procedimiento vamos a utilizar va- 
rias variables: 


— VALOR para guardar el número que 
la tortuga calcule. 

— NUMERO para ir guardando la tecla 
que pulsemos. 

— MAXIMO y MINIMO para ir sabiendo 
entre qué números está comprendido el 
número que tenemos que acertar. 

Tenemos que escribir: 


y para ejecutarlo pondremos: 
2 ADIVINAR 


[MM] Os proponemos 


1. Añade a los dos procedimientos 
anteriores los comandos y variables ne- 
cesarias para que la tortuga te dé como 
máximo cinco oportunidades para acer- 
tar el número y si no lo logras que calcu- 
le otro nuevo. 

Pista: Mientras no se hayan agotado las 
cinco oportunidades hay que llamar a 
JUEGO y cuando se alcance este tope a 
ADIVINAR. 


PASCAL 


El Pascal 
y las 
matemáticas 


NA de las aplicacio- 
nes más antiguas de 
los computadores es 
la resolución de pro- 
blemas matemáticos. 
En estos casos, como 
en tantos otros, el em- 
pleo de lenguajes de 
programación estructurados, como el 
Pascal, puede simplificar mucho el de- 
sarrollo de programas. Para ilustrar esto 
vamos a ver cómo se puede operar con 
polinomios de manera muy cómoda. 


Almacenamiento de 
polinomios en memoria 


Para guardar un polinomio en memoria 
bastaría, en principio, con utilizar una ta- 
bla de reales donde almacenar sus coe- 
ficientes; sin embargo, y para facilitar los 
cálculos, también es interesante cono- 
cer el grado del polinomio, por lo que uti- 
lizaremos las siguientes definiciones: 


const 

Grado.Max = 15; (* por poner un fímite...”) 
type 

Grado.!t = 0..Grado.Max; 


Polinomio.t = record 
Coef : array (Grado.t) 
of real; 
Grado: Grado.!t 
end; 


Si el polinomio fuese, por ejemplo: 


5*X3+X"2-3"X+40 


(donde ” significa «elevado a»), tendría- 
mos los siguientes valores: 

Grado = 3 

Coef (3)= 5 

Coetf (2) = 4 

Coef (1) = -3 

Coet (0) = 10 


_ El valor de los restantes coeficientes se- 
ria indiferente, al conocerse, gracias a 
Grado, el grado del polinomio. 


'O Evaluación de un polinomio 


Para conocer el valor de un polinomio 
en un punto dado, en lugar de hacer ex- 
ponenciaciones, utilizaremos el método 
de Horner, que es mucho más eficiente. 
Tomando como ejemplo un polinomio de 
cuarto grado, consistiría en hacer la si- 
guiente transformación: 


A"X4+B"X3+C"X2+D"X>+E 


es igual a 
((A "XxX +B)"* X+C)"X+0D)” X + E 


con lo que el cálculo se limita a hacer 
unas pocas multiplicaciones y sumas. El 
procedimiento de evaluación podría 
ser: 


LS 


begin 
Acumula := 0.0; 
with P do 


Valor := AÁcumul a 
end; 


Con esta función podríamos escribir, 
por ejemplo: 


B:= Valor (Pol, X); 


El paso de parámetro se hace por nom- 
bre en el caso del polinomio para 
ahorrar tiempo. 


O Derivada de un polinomio 


La obtención a partir de un polinomio 
dado del polinomio que es su derivada 
es muy sencilla; tomando como ejemplo 
nuevamente el polinomio de cuarto gra- 
do anterior, su derivada sería: 


4"A'X3+3"B"X2+2"C"X+D 
El procedimiento podría ser: 


procedure DERIVAR (var P, D: Polinomio-t); 


var |: integer; 
begin 
for | := 4 to P. Grado do 
D.Coef (¡-1):= P.Coef (¡) * l; 


D.Grado := P.Grado - 41 
end; 


En este caso, el paso de D por nombre 
es obligatorio. Se podria acelerar algo el 
proceso poniendo: 


function VALOR (var Pz Polinomio_t; X: real): real; 


A 


£ Da el valor del polinomio P en X > 


a, 


var Acumula: real; l: integer; 


for 1 := Grado downto O do 
Acumula := Acumula *£ X + Coef [iJ; 


+ 


begin 
with P do 
begin 
for | := 4 to Grado do 
D.Coef (i-1) := Coef (¡) ” l; 
D.Grado := Grado - 41 
end 
end; 


El hecho de utilizar un bucle con valo- 
res crecientes de | permite convertir a un 
polinomio en su derivada directamente: 


Derivar (A,A); 


O Normalización de polinomios 


Con la estructura de datos utilizada, un 
mismo polinomio puede, en principio, te- 
ner varias representaciones distintas; el 
polinomio de grado 1: 


A*"X+B 
es igual al polinomio de grado 2: 


O"X2+A"X+B 


por tanto, para aprovechar la ventaja de 
almacenar el grado y para simplificar el 
procedimiento de división, como se verá 
más adelante, conviene «normalizar» la 
representación del polinomio, es decir, 
reducir su grado para eliminar los coefi- 
cientes nulos superfluos: 


IN PASCAL 


procedure NORMALIZA (var P: Polinmomio_t); 
A ) 

£ Si el primer coeficiente es nulo > 
reduce Grado hasta que no lo sea 7) 


var Parar: boolean; 


begin 
Parar := false; + 
with P do 


while (Grado >= 0) and not Parar do 
if Coef [Grado <> 0.0 then Parar := true 
else Grado := Grado - 1 


end; 


Este procedimiento tiene el inconve- ¡O - 
niente de que las condiciones de salida El, División de polinomios 


del bucle son la llegada al primer coefi- Para dividir polinomios hay que restar 
ciente no nulo o que Grado valga -1; Gra- al dividendo el divisor multiplicado por 
do es un campo de tipo Grado.t y, por un término tal que el primer elemento de 
tanto, no puede tomar ese valor. La solu- aquél se anule, y seguir haciendo lo mis- 
ción más sencilla consiste, pues, en defi-. mo con el resto obtenido hasta que éste 
nir Grado como de tipo Integer. sea de grado menor que el divisor; el 
conjunto de términos utilizados es, preci- 
samente, el cociente de la división. 


procedure DIVIDIR (var N, D, €, R: Polinomo_ t): 


nn 


í Hace c y R 1gual al cociente y 
y al canta de dividir N entre D. 3 


A A 


var ki PEA 1, Dif: integer; 


begin 

Normaliza (D); £ Por sí su primer coeficiente es 0. 2 

1% D.Grado >= O then ( Si es un polinomio no nulo... 3 
1m 


Roa" N 
C.Grado := N.Grado - D.Grado; 

pel R do 

while Grado >= D.Grado do 


( exponente v coeficiente a utilizar: 3 
do 1= Grado - D.Grado: 
3= Coef (Grado) / D.Coef (D.Grado); 


£ Resto := Resto - (K 8 X"Dif) £ Divisor: > 
4or 1 := Grado - 1 downto Di4 do 

Coe+fíli= Coet[1] - K 8 D.Corfli-d147; 
Grado := Grado - 1; 


( el término empleado corresponde al cociente: > 
C.Coef (Dif7 121= K 
end 


writeln ("Error: División por palinoajo mnulo.”); 
wríiteln ("Pulse Intro para sequir.”)i 

readin 
end 


Producto de polinomios 


los términos de uno de los polinomios y, 

El producto de polinomios se implemen- con cada uno de ellos, utilizar otro bucle 
ta de una manera muy sencilla: basta para irlo multiplicando por todos los tér- 
con utilizar un bucle para ir recorriendo minos del otro: 


ocedure MULTIPLICAR (var P, Q, Res: Polinomio_t); 


=-----) 


£ Hace Res igual al producto > 
t producto de P por Q. 3 
Lk--——— 
var 1,J: integer; 
begin ¿ 
Normaliza (P); 
Normaliza (0); 
if P.Grado + Q.Grado > Grado_Max then 
writeln (”El resultado es de un grado excesivo.”) 


a > 


else with Res do 
begin 
Grado := P.Grado + Q.Grado; 
for 1 := O to Grado do Coef [il := 0.0; 


for 1 := O to P.Grado do 
for J := O to Q.Grado do 
Coef [i+j] := Coef [i+j] + P.Coef [il] * Q.Coef [jJ 


- - | Para terminar, veamos cómo introducir 
m Introducción y presentación los coeficientes de un polinimio desde 
de datos teclado y cómo presentarlos en pantalla: 


procedure LEE_POL (var P: Polinomio_t; Letra: char); 


var l: integer; 
begin 
write ("Grado = ”); readin (1); writeln; 
if (1 <= Grado_Max) and (I > 0) then with P do 
begin 
Grado := 1; 
for 1 := Grado downto O do 
begin 
write (Letra,*[”,1,*J= ”); 
readin (Coef [iJ) 
end; 
Normaliza (P); 


var l: integer; 
begin 
- with P do 
for l:=Grado downto O do 
writeln (Letra,”*1”*,1,*J= ”?, Coef [iJ) 


Próximamente construiremos un programa que utilizará los procedimientos y 
funciones aqui desarrollados. 


LISP (IM) 


[(m El lenguaje 


LISP 


ESPUES de hablar de 
las enormes posibili- 
dades que el LISP 
ofrece, a pesar de 
disponer de un solo 
tipo de instrucción y 
de una estructura de 
datos tan sencilla, 


Funciones más comunes en LISP 


OTROS LENGUAJES 


adentrémonos en el problema principal: 
la realización de un programa y las fun- 
ciones esenciales para que esto sea rea- 
lizable. 

Pero antes demos una lista en la que se 
puede ver una breve definición de las 
funciones estándar del LISP, que prácti- 
camente definen el lenguaje. Puede ob- 
servarse que las principales no están 
descritas, ya que dejamos esta explica- 
ción para el texto. 


Notación utilizada en la definición de las funciones LISP: 


ATOM — Atomo 
Cuerpo del programa (Body) 
FUNCTION — Función 
LIST — Lista 
NIL...Falso (Nada) 


s-expresión — Expresión simbólica 
Verdad (True) 


AR....ARGUMENT — Argumento (Cualquiera de los anteriores) 

En la notación se numera de la forma siguiente: 1 es la primera posición, 2 es la segunda en 
la lista, y 1...n se utiliza para cualquier número de argumentos de la clase especificada por la 
letra precedente. 


RD 308 ¡000 HON MEC 


ABS 
ADD1 
AND 


APPEND 
APPLY 
ASSOC 


ATOM 

CAR 

CDR 
COND 
CONS 
DEFINE 


DEFPROP 
DELETE 


Devuelve el valor absoluto de su argumento. (ABS X) 
Devuelve el argumento más uno. (ADD1 X) 
Devuelve NIL si alguna de las S-expresiones es NIL y devuel- (AND S...S) 


ve T en caso contrario. 


Devuelve una lista sencilla formada por los elementos de dos (APPEND L1 L2) 
listas que son sus argumentos. 


Opera con los argumentos con 


la función dada como si apa- (APPLY F A) 


reciese primero en la S-expresión. 
Usa el primer argumento como clave y busca el mismo en (ASSOC A L) 
la lista que figura como segundo argumento. 


Devuelve T si la s-expresión es un ATOM, si no devuelve NIL. (ATOM S) 
Devuelve el primer elemento dé la lista. (CAR L) 
Devuelve la lista sin el primer elemento. (CDR L) 
Es la función de bifurcación del LISP. (COND L1 L2) 
Añade la s-expresión a la lista dada como primer elemento. (CONS S L) 
Define una función; se devuelve el nombre de la función. (DEFINE F AR 
...ARn...B) 
Instala la s-expresión como propiedad del átomo. (DEFPROP A S) 
Elimina las veces que aparece la s-expresión en la lista. El (DELETE S L X) 


número de borrados lo determina el tercer argumento. Si no 


E AAA 


existe, se suprimen todas las coincidencias. 
Devuelve el primer argumento menos el segundo. (DIFFERENCE 


X1 X2) 


DO 
(EQUAL S S) 
(EVAL S) 
(EXPLODE A) 


Es la función de iteración en LISP. 
Devuelve T si las s-expresiones son idénticas. 
Devuelve el valor de la evaluación de la s-expresión 
Devuelve una lista de un carácter formada con el carácter 
dado. 
EXP Eleva e a la potencia indicada. 
EXPT Eleva el primer argumento a la potencia indicada por el se- 
gundo argumento. 
Opera sobre los argumentos con la función dada (parecido 
a APPLY). 
LESSP Devuelve T si todos los argumentos van en orden creciente. 
LIST Devuelve una lista de n elementos construida con ellos. 
MAPCAR Aplica la función a la lista o listas de argumentos. Devuelve 
una lista de resultados. 
MAX Devuelve el argumento mayor. 
MEMBER Devuelve T si la s-expresión es igual al elemento de nivel ma- 
yor (nivel 0) de la lista. 
Devuelve el argumento menor. 
Devuelve el valor de la propiedad asociada al átomo. 
Bifurcación incondicional. 
Devuelve T si todos los argumentos están en orden creciente. 


EXPLODE 


(EXPO X) 
(EXPT X1 X2) 


(FUNCALL 

F ARL...ARn) 
(LESSP X1...Xn) 
(LIST S1...Sn) 
(MAPCAR 

F AR1...ARn) 
(MAX X1...Xn) 
(MEMBER S L) 


FUNCALL 


(MIN X1...Xn) 
(GET A P) 


(GO T) 
(GREATERP X1...Xn) 


IMPLODE 
LAMBDA 
LAST 
LENGTH 


Transforma el carácter dado en la lista en átomo. 

Similar a DEFINE. 

Devuelve la lista con todos los elementos, excepto el último. 
Devuelve el número de elementos de la lista. 

MINUS Devuelve el argumento decrementado en uno. 

MINUSP Devuelve T si el argumento es negativo. 

NOT Devuelve T si la s-expresión es NIL; en otro caso, devuelve 


NIL. 
NULL Devuelve T si la s-expresión es una lista vacía o NIL; en otro 
NUMBERP 
OR 


(IMPLODE L) 
(LAMBDA AR) 
(LAST L) 
(LENGTH L) 
(MINUS X) 
(MINUSP X) 
(NOT S) 


(NULL S) 


(NUMBERP S) 
(OR S1...Sn) 


(PLUS X1...Xn) 
(PLUSP X) 
(PRINC S) 


(PRINT S) 
(PUTPROP A S) 
(QUOTE S) 


(READ L) 
(REVERSE L) 
(RETURN S) 


(SET S1 $2) 
(SETQ A S) 


(SQRT X) 
(SUBST $1 $2 $3) 


caso, devuelve NIL. 

Devuelve T si el argumento es un número. 

Devueive T si al menos una s-expresión de sus argumentos 

es no-NIL. De lo contrario, devuelve NIL. % 

Suma de todos los argumentos. 

Devuelve T si el argumento es positivo. 

Igual que PRINT, pero imprime un CRETURN antes y un es- 

pacio después. 

Imprime la s-expresión. Su valor es siempre T. 

Crea variables y soporta iteraciones (ver texto). 

Instala la s-expresión como propiedad de un átomo. 

idéntico a “s-expresión. 

(QUOTIENT X1 X2) 

Lee un valor que introduce en la lista. 

Invierte el orden de los elementos de la lista. 

Causa la devolución de la s-expresión como valor del PROG 

en el que aparece. 

SET Devuelve el segundo argumento al que asigna el átomo re- 
sultante de la evolución del primer argumento. 

SETQ Devuelve la s-expresión con el valor del átomo. 

SORT Devuelve la raíz cuadrada del argumento. 

SsuB1 Sustituye por la s-expresión1 todas las coincidencias de la 
s-expresión2 en la s-expresión3. 

TERPRI Causa un retorno de carro. (TERPRI) 

TIMES 

ZEROP 


PLUS 
PLUSP 
PRINC 


PRINT 
PROG 
PUTPROP 
QUOTE 
QUOTIENT 
READ 
REVERSE 
RETURN 


Devuelve el producto de los argumentos. (TIMES X1...Xn) 
Devuelve T si el argumento es cero. (ZEROP X) 

Expliquemos estas instrucciones por or- 

den alfabético. La primera instrucción im- 

portante es la de bifurcación COND. La 

función COND es una lista todo lo larga 

que deseemos formada por la palabra 

clave (que es un átomo) COND, seguida 


por pares de elementos. El primero de 
cada par es la función de condición; si 
su valor es T, entonces se devuelve como 
valor de la función el que tiene el segun- 
do elemento, que es ejecutado. En caso 
contrario, se pasa al segundo par (algo 


Ml OTROS LENGUAJES 


así como un ELSE IF), y así sucesivamente 
hasta el ultimo par, que de ser falsa su 
condición, obliga a la función a devolver 


NIL, y produce un error de ejecución. Si : 


no se desea la detención del programa, 
la solución evidente es poner al final de 
la función una condición que se cumpla 
siempre (T) y como función un valor a de- 
volver que nos indique esta situación. 

Esta función permite cualquier tipo de 
combinación lógica de las que se reali- 
zan en programación clásica y algunas 
bastante difíciles de implementar en 
otros lenguajes. 

La segunda función importante es DEFI- 
NE, ya que sirve para definir funciones 
nuevas a partir de otras preexistentes. 
Puede parecer que esta situación sea 
una limitación, pero de hecho, con las 
funciones estándar de LISP y haciendo 
definiciones recursivas, se puede definir 
todo (el problema es tener una idea cla- 
ra de cómo hacerlo). 

Esta función está formada también por 
un número infinito de pares. El primer ele- 
mento es el nombre de la nueva función, 
el segundo es la nueva función, que es 
una expresión formada por otras funcio- 
nes. 

La función LAMBDA, junto con la DEFINE, 
forman base de la construcción de nue- 
vas funciones. 

Por último, hablemos de la función prin- 
cipal: la función PROG. Esta función es la 
utilizada para formar programas con una 
«esencia» que tiene reminiscencias clási- 
cas, ya que esta función permite el uso 
de declaraciones, sentencias, etiquetas, 
transferencias, funciones (sentencias) 
condicionales, y el retorno de valores. 

Dentro de esta complicada función que 
llamamos PROG (programa), es decir, 
dentro de la lista que lo forma, hay sub- 
listas, funciones, en definitiva, paráme- 
tros que cumplen estos cometidos. 

Por ejemplo, las etiquetas son átomos, 
y las transferencias (los clásicos GOTO) 
son funciones que pueden estar en cual- 
quier parte y que transfieren el control a 
otra. 

Evidentemente, las sentencias son una 
red de llamadas y retornos de funciones 
que cumplen el cometido del clásico 
cuerpo del programa. 

La función condicional podría ser la 
imagen de la sentencia comparativa, y 
el retorno de valores es una función cuyo 


único cometido es transferir valores fue- 
ra de un determinado contexto. A conti- 
nuación se puede ver un ejemplo de pro- 
grama LISP típico: 


(COMT ES'(1 1)'(4 7) 


COMPLEX.MULTIPLICATION .» 
(-3 11) 


iii 
(COMTIMES '(12 15) '(27 32) 
(-156 789) 


e MO 0d de 0 de de dl de 0 0d 0 dd 0 0 


Program END 
(DEFINE 
(COMTIMES A B) 
(SETO A1 
(CAR A)) 
(SETOQ A2 
(CAR 
(CDR A))) 
(SETO B1 
(CAR B)) 

(SETO B2 

(CAR 

(CDA B))) 
(SETQ X 
(DIFFERENCE 
(TIMES A1 A2) 
(TIMES B1 B2))) 
(SETQ Y 

(PLUS 

(TIMES A1 B2) 
(TIMES A2 B1))) 
(CONS X 
(CONS Y NIL)) 

) 


Sample Run 
(SETO A “(1 0)) 
(SETO B *(2 0)) 
(COMTIMES A B) 
(2 0) 
RARA (CONS X 
(SETOA (1 1) a 
(SETO B (2 1)) 
(COMTIMES A B) 
(1 3) Cr COMPLEX TIMES 


aiii RETUANS THE VALUE OF THE PRODUCT OF TWO 
COMPLEX NUMBERS IN A LIST "() 


Requirement 
To find the product of 
two complex numbers. 


Flowchart: Complex Multiplication 
FLOWCHART COMPLEX MULTIPLICATION 
ENTERAS FROM THE (fNTER) (COMTIMES A B) 


CALL TO CONTIMES 
FUNCTION 


(SETO A1 GET FIRST 
(CAR A) REAL 

PART 
(SETO A2 GET FIRST 
(CAR IMAGINARY 
(CDA A))) PART 


GET SECOND 
IMAGINARY 
PART 


CALCULATE 
NEW 

HEAL 
PART 


CALCULATE 
NEW 

IMAGAINARY 
PART 


ANANA TARA YA 
NW 


COMBINE 
TO FORM 
COMP! EX 
VAHIABLE 
LIST 


Como resumen podríamos decir que 
no es una casualidad que el lenguaje 
LISP se imponga rápidamente en ambien- 
tes dedicados a la programación «a gran 
escala», incluso para actividades no re- 
lacionadas con la inteligencia artificial. 
Aunque si miramos la situación con una 
cierta perspectiva, qué software no será 
inteligencia artificial dentro de algunos 
años. 

El programador imaginativo encontra- 
rá en este lenguaje una herramienta no 
sólo potente, sino de gran belleza con- 
ceptual. Sólo un planteamiento diferente 
al Funcional del LISP podrá competir en 
los lenguajes de programación futuros, y 
es la programación orientada a objetos. 
El LISP nos hace entrever un futuro lleno 
de sorprendentes cambios en el ámbito 
de la programación. 
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